VERSION 5.00
Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} frmServiceStand 
   Caption         =   "Service Standardizations"
   ClientHeight    =   18200
   ClientLeft      =   -38400
   ClientTop       =   -7920
   ClientWidth     =   31000
   OleObjectBlob   =   "frmServiceStand.frx":0000
   StartUpPosition =   1  'CenterOwner
End
Attribute VB_Name = "frmServiceStand"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'Written By Jalisa Greene
'Last Updated 6/10/2014
'Service Standardization Userform Control


Dim rowNum As Integer
Dim LocID As Integer

Private Sub UserForm_Initialize()
Dim loc As Range
'Add each location to the locations box'
For Each loc In Worksheets("INV").Range("locations")
    If loc <> "" Then cmbLocations.AddItem (loc.Value)
Next

For Each aCell In Worksheets("Pick Lists").Range("B3:B9")
    txt1ContainType.AddItem (aCell.Value)
Next

For Each aCell In Worksheets("Pick Lists").Range("F3:F9")
    txt1TypeWaste.AddItem (aCell.Value)
Next

For Each aCell In Worksheets("Pick Lists").Range("D3:D5")
    txt1Mes.AddItem (aCell.Value)
Next

End Sub

Private Sub cmbLocations_Change()
On Error GoTo ErrorResume:

    LocID = cmbLocations.Value
    'add each container for a selected location'
    Call InsertContainers
    Exit Sub
ErrorResume:
    Exit Sub
    
End Sub

Private Sub InsertContainers()
cmbContainers.Clear

'Insert Container 1'
If WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:ZA2000"), 27, False) <> "" Then cmbContainers.AddItem (WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:ZA2000"), 55, False))
'Insert Container 2'
If WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:ZA2000"), 79, False) <> "" Then cmbContainers.AddItem (WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:ZA2000"), 107, False))
'Insert Container 3'
If WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:ZA2000"), 131, False) <> "" Then cmbContainers.AddItem (WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:ZA2000"), 159, False))
'Insert Container 4'
If WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:ZA2000"), 183, False) <> "" Then cmbContainers.AddItem (WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:ZA2000"), 211, False))
'Insert Container 5'
If WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:ZA2000"), 235, False) <> "" Then cmbContainers.AddItem (WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:ZA2000"), 263, False))
'Insert Container 6/ Compactor 1'
If WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:ZA2000"), 287, False) <> "" Then cmbContainers.AddItem (WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:ZA2000"), 321, False))
'Insert Container 7/ Compactor 2'
If WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:ZA2000"), 339, False) <> "" Then cmbContainers.AddItem (WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:ZA2000"), 373, False))
'Insert Container 8/ Compactor 3'
If WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:ZA2000"), 391, False) <> "" Then cmbContainers.AddItem (WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:ZA2000"), 425, False))

End Sub

Private Sub cmbContainers_Change()
    txt1FlatHaul.Visible = False
    lbl1FlatHaul.Visible = False
    txt1FlatDisposal.Visible = False
    lbl1FlatDisposal.Visible = False
    txt1WeightPerHaul.Visible = False
    lbl1WeightPerHaul.Visible = False
    txt1HaulsPerMonth.Visible = False
    lbl1HaulsPerMonth.Visible = False
    txt1QuanPerMonth.Visible = False
    lbl1QuanPerMonth.Visible = False
    txt1MaxWeight.Visible = False
    lbl1MaxWeight.Visible = False
    txt2FlatHaul.Visible = False
    lbl2FlatHaul.Visible = False
    txt2FlatDisposal.Visible = False
    lbl2FlatDisposal.Visible = False
    txt2WeightPerHaul.Visible = False
    lbl2WeightPerHaul.Visible = False
    txt2HaulsPerMonth.Visible = False
    lbl2HaulsPerMonth.Visible = False
    txt2QuanPerMonth.Visible = False
    lbl2QuanPerMonth.Visible = False
    txt2MaxWeight.Visible = False
    lbl2MaxWeight.Visible = False
    Call FindContainerData
    
End Sub

Private Sub btnCancel_Click()
frmServiceStand.Hide

End Sub

Private Sub FindContainerData()

    Dim containNum As Integer
    
On Error GoTo ErrorResume:
    
    'Find out which container number it is for the location'
    rowNum = WorksheetFunction.Match(LocID, Worksheets("INV").Range("locations"), 0) + 7
    If cmbContainers.Value = Worksheets("ASR").Range("BC" & rowNum) Then
        containNum = 1
    ElseIf cmbContainers.Value = Worksheets("ASR").Range("DC" & rowNum) Then
        containNum = 2
    ElseIf cmbContainers.Value = Worksheets("ASR").Range("FC" & rowNum) Then
        containNum = 3
    ElseIf cmbContainers.Value = Worksheets("ASR").Range("HC" & rowNum) Then
        containNum = 4
    ElseIf cmbContainers.Value = Worksheets("ASR").Range("JC" & rowNum) Then
        containNum = 5
    ElseIf cmbContainers.Value = Worksheets("ASR").Range("LI" & rowNum) Then
        containNum = 6
    ElseIf cmbContainers.Value = Worksheets("ASR").Range("NI" & rowNum) Then
        containNum = 7
    ElseIf cmbContainers.Value = Worksheets("ASR").Range("PI" & rowNum) Then
        containNum = 8
    End If
       
    Call InsertContainerData(containNum)
    Exit Sub
    
ErrorResume:
    Exit Sub
    
End Sub

Private Sub InsertContainerData(containNum As Integer)
    'If we have billing corrections already in place pull that information, else pull baseline information'
    If containNum = 1 Then
        Call InsertContain1
        If Worksheets("ASR").Range("BAL" & rowNum).Value <> "" Then
            Call InsertContain1Standards
        Else:
            Call InsertContain1AutoInput
        End If
    ElseIf containNum = 2 Then
        Call InsertContain2
        If Worksheets("ASR").Range("BBS" & rowNum).Value <> "" Then
            Call InsertContain2Standards
        Else:
            Call InsertContain2AutoInput
        End If
    ElseIf containNum = 3 Then
        Call InsertContain3
        If Worksheets("ASR").Range("BCZ" & rowNum).Value <> "" Then
            Call InsertContain3Standards
        Else:
            Call InsertContain3AutoInput
        End If
    ElseIf containNum = 4 Then
        Call InsertContain4
        If Worksheets("ASR").Range("BEG" & rowNum).Value <> "" Then
            Call InsertContain4Standards
        Else:
            Call InsertContain4AutoInput
        End If
    ElseIf containNum = 5 Then
        Call InsertContain5
        If Worksheets("ASR").Range("BFN" & rowNum).Value <> "" Then
            Call InsertContain5Standards
        Else:
            Call InsertContain5AutoInput
        End If
    ElseIf containNum = 6 Then
        Call InsertContain6
        Call InsertContain6Standards
    ElseIf containNum = 7 Then
        Call InsertContain7
        Call InsertContain7Standards
    ElseIf containNum = 8 Then
        Call InsertContain8
        Call InsertContain8Standards
    End If

End Sub

Private Sub InsertContain1()
'Insert Container 1 information from the ASR
    lblCurrVendor.Caption = Worksheets("ASR").Range("AA" & rowNum).Value
    lblCurrService.Caption = Worksheets("ASR").Range("BC" & rowNum).Value
    
    txt1Vendor.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 27, False)
    txt1TypeWaste.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 33, False)
    txt1NumContain.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 29, False)
    txt1SzContain.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 30, False)
    txt1Mes.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 31, False)
    txt1ContainType.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 32, False)
    txt1NumPickups.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 34, False)
                
    If (WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 35, False) <> "0") Then
        txt1YdsPerWeek.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 35, False)
    Else: txt1YdsPerWeek.Text = ""
    End If
    
    txt1BaseSvc.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 41, False), "Currency")
    txt1EnvFee.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 42, False), "Currency")
    txt1FuelFee.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 43, False)
    txt1FeeType1.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 44, False)
    txt1FeePrice1.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 45, False), "Currency")
    txt1FeeType2.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 46, False)
    txt1FeePrice2.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 47, False), "Currency")
    txt1FeeType3.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 48, False)
    txt1FeePrice3.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 49, False), "Currency")
    txt1FeeType4.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 50, False)
    txt1FeePrice4.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 51, False), "Currency")
    txt1FeeType5.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 52, False)
    txt1FeePrice5.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 53, False), "Currency")
    txt1Rate1.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 58, False)
    txt1Rate2.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 59, False)
    txt1Rate3.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 60, False)
    txt1Rate4.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 61, False)
    txt1Rate5.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 62, False)
                
    If (WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 54, False) <> "0") Then
        txt1MonSpend.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 54, False), "Currency")
    Else: txt1MonSpend.Text = ""
    End If
    
End Sub

Private Sub InsertContain2()
    'Insert Container 2 information from the ASR'
    
    lblCurrVendor.Caption = Worksheets("ASR").Range("CA" & rowNum).Value
    lblCurrService.Caption = Worksheets("ASR").Range("DC" & rowNum).Value
    
    txt1Vendor.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 79, False)
    txt1TypeWaste.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 81, False)
    txt1NumContain.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 82, False)
    txt1SzContain.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 83, False)
    txt1Mes.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 84, False)
    txt1ContainType.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 85, False)
    txt1NumPickups.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 86, False)
    
    If (WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 87, False) <> "0") Then
        txt1YdsPerWeek.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 87, False)
        Else: txt1YdsPerWeek.Text = ""
    End If

    txt1BaseSvc.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 93, False), "Currency")
    txt1EnvFee.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 94, False), "Currency")
    txt1FuelFee.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 95, False)
    txt1FeeType1.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 96, False)
    txt1FeePrice1.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 97, False), "Currency")
    txt1FeeType2.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 98, False)
    txt1FeePrice2.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 99, False), "Currency")
    txt1FeeType3.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 100, False)
    txt1FeePrice3.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 101, False), "Currency")
    txt1FeeType4.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 102, False)
    txt1FeePrice4.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 103, False), "Currency")
    txt1FeeType5.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 104, False)
    txt1FeePrice5.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 105, False), "Currency")
    txt1Rate1.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 110, False)
    txt1Rate2.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 111, False)
    txt1Rate3.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 112, False)
    txt1Rate4.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 113, False)
    txt1Rate5.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 114, False)
    
    If (WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 106, False) <> "0") Then
        txt1MonSpend.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 106, False), "Currency")
        Else: txt1MonSpend.Value = ""
    End If

End Sub

Private Sub InsertContain3()
'Insert Current Spend from Container 3'
    lblCurrVendor.Caption = Worksheets("ASR").Range("EA" & rowNum).Value
    lblCurrService.Caption = Worksheets("ASR").Range("FC" & rowNum).Value
    
    lblCurrVendor.Caption = Worksheets("ASR").Range("AA" & rowNum).Value
    lblCurrService.Caption = Worksheets("ASR").Range("BC" & rowNum).Value
    txt1Vendor.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 131, False)
    txt1TypeWaste.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 133, False)
    txt1NumContain.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 134, False)
    txt1SzContain.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 135, False)
    txt1Mes.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 136, False)
    txt1ContainType.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 137, False)
    txt1NumPickups.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 138, False)
    
    If (WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 139, False) <> "0") Then
        txt1YdsPerWeek.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 139, False)
        Else: txt1YdsPerWeek.Text = ""
    End If
    
    txt1BaseSvc.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 145, False), "Currency")
    txt1EnvFee.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 146, False), "Currency")
    txt1FuelFee.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 147, False)
    txt1FeeType1.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 148, False)
    txt1FeePrice1.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 149, False), "Currency")
    txt1FeeType2.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 150, False)
    txt1FeePrice2.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 151, False), "Currency")
    txt1FeeType3.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 152, False)
    txt1FeePrice3.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 153, False), "Currency")
    txt1FeeType4.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 154, False)
    txt1FeePrice4.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 155, False), "Currency")
    txt1FeeType5.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 156, False)
    txt1FeePrice5.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 157, False)
    txt1Rate1.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 162, False)
    txt1Rate2.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 163, False)
    txt1Rate3.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 164, False)
    txt1Rate4.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 165, False)
    txt1Rate5.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 166, False)
    
    If (WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 158, False) <> "0") Then
        txt1MonSpend.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 158, False), "Currency")
        Else: txt1MonSpend.Text = ""
    End If

End Sub

Private Sub InsertContain4()
'Insert Container 4 information from the ASR'

    lblCurrVendor.Caption = Worksheets("ASR").Range("GA" & rowNum).Value
    lblCurrService.Caption = Worksheets("ASR").Range("HC" & rowNum).Value
    
    txt1Vendor.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 183, False)
    txt1TypeWaste.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 185, False)
    txt1NumContain.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 186, False)
    txt1SzContain.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 187, False)
    txt1Mes.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 188, False)
    txt1ContainType.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 189, False)
    txt1NumPickups.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 190, False)
    
    If (WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 191, False) <> "0") Then
        txt1YdsPerWeek.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 191, False)
        Else: txt1YdsPerWeek.Text = ""
    End If
    
    txt1BaseSvc.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 197, False), "Currency")
    txt1EnvFee.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 198, False), "Currency")
    txt1FuelFee.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 199, False)
    txt1FeeType1.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 200, False)
    txt1FeePrice1.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 201, False), "Currency")
    txt1FeeType2.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 202, False)
    txt1FeePrice2.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 203, False), "Currency")
    txt1FeeType3.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 204, False)
    txt1FeePrice3.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 205, False), "Currency")
    txt1FeeType4.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 206, False)
    txt1FeePrice4.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 207, False), "Currency")
    txt1FeeType5.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 208, False)
    txt1FeePrice5.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 209, False), "Currency")
    txt1Rate1.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 214, False)
    txt1Rate2.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 215, False)
    txt1Rate3.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 216, False)
    txt1Rate4.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 217, False)
    txt1Rate5.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 218, False)
    
    If (WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 210, False) <> "0") Then
        txt1MonSpend.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 210, False), "Currency")
        Else: txt1MonSpend.Text = ""
    End If
    

End Sub

Private Sub InsertContain5()
'Insert Container 5 information from the ASR'

    lblCurrVendor.Caption = Worksheets("ASR").Range("IA" & rowNum).Value
    lblCurrService.Caption = Worksheets("ASR").Range("JC" & rowNum).Value
    
    txt1Vendor.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 235, False)
    txt1TypeWaste.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 237, False)
    txt1NumContain.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 238, False)
    txt1SzContain.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 239, False)
    txt1Mes.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 240, False)
    txt1ContainType.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 241, False)
    txt1NumPickups.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 242, False)
    
    If (WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 243, False) <> "0") Then
        txt1YdsPerWeek.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 243, False)
        Else: txt1YdsPerWeek.Text = ""
    End If
    
    txt1BaseSvc.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 249, False), "Currency")
    txt1EnvFee.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 250, False), "Currency")
    txt1FuelFee.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 251, False)
    txt1FeeType1.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 252, False)
    txt1FeePrice1.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 253, False), "Currency")
    txt1FeeType2.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 254, False)
    txt1FeePrice2.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 255, False), "Currency")
    txt1FeeType3.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 256, False)
    txt1FeePrice3.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 257, False), "Currency")
    txt1FeeType4.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 258, False)
    txt1FeePrice4.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 259, False), "Currency")
    txt1FeeType5.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 260, False)
    txt1FeePrice5.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 261, False), "Currency")
    txt1Rate1.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 266, False)
    txt1Rate2.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 267, False)
    txt1Rate3.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 268, False)
    txt1Rate4.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 269, False)
    txt1Rate5.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 270, False)
    
    If (WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 262, False) <> "0") Then
        txt1MonSpend.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 262, False), "Currency")
        Else: txt1MonSpend.Text = ""
    End If
    

End Sub

Private Sub InsertContain6()
'Insert Container 6 information from the ASR'

    lblCurrVendor.Caption = Worksheets("ASR").Range("KA" & rowNum).Value
    lblCurrService.Caption = Worksheets("ASR").Range("LI" & rowNum).Value
    
    txt1Vendor.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 287, False)
    txt1TypeWaste.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 289, False)
    txt1NumContain.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 290, False)
    txt1SzContain.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 291, False)
    txt1Mes.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 292, False)
    txt1ContainType.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 293, False)
    txt1NumPickups.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 294, False)
    
    If (WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 295, False) <> "0") Then
        txt1YdsPerWeek.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 295, False)
        Else: txt1YdsPerWeek.Text = ""
    End If
    
    txt1MaxWeight.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 296, False)
    txt1QuanPerMonth.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 297, False)
    txt1HaulsPerMonth.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 298, False)
    txt1WeightPerHaul.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 299, False)
    txt1FlatHaul.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 300, False)
    txt1FlatDisposal.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 301, False)
    txt1FlatHaul.Visible = True
    lbl1FlatHaul.Visible = True
    txt1FlatDisposal.Visible = True
    lbl1FlatDisposal.Visible = True
    txt1WeightPerHaul.Visible = True
    lbl1WeightPerHaul.Visible = True
    txt1HaulsPerMonth.Visible = True
    lbl1HaulsPerMonth.Visible = True
    txt1QuanPerMonth.Visible = True
    lbl1QuanPerMonth.Visible = True
    txt1MaxWeight.Visible = True
    lbl1MaxWeight.Visible = True
    
    txt1BaseSvc.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 307, False), "Currency")
    txt1EnvFee.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 308, False), "Currency")
    txt1FuelFee.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 309, False)
    txt1FeeType1.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 310, False)
    txt1FeePrice1.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 311, False), "Currency")
    txt1FeeType2.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 312, False)
    txt1FeePrice2.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 313, False), "Currency")
    txt1FeeType3.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 314, False)
    txt1FeePrice3.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 315, False), "Currency")
    txt1FeeType4.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 316, False)
    txt1FeePrice4.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 317, False), "Currency")
    txt1FeeType5.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 318, False)
    txt1FeePrice5.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 319, False), "Currency")
    txt1Rate1.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 324, False)
    txt1Rate2.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 325, False)
    txt1Rate3.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 326, False)
    txt1Rate4.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 327, False)
    txt1Rate5.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 328, False)

    
    If (WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 320, False) <> "0") Then
        txt1MonSpend.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 320, False), "Currency")
        Else: txt1MonSpend.Text = ""
    End If


End Sub

Private Sub InsertContain7()
    'Insert Container 7 information from the ASR'
    
    lblCurrVendor.Caption = Worksheets("ASR").Range("MA" & rowNum).Value
    lblCurrService.Caption = Worksheets("ASR").Range("NI" & rowNum).Value
    
    txt1Vendor.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 339, False)
    txt1TypeWaste.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 341, False)
    txt1NumContain.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 342, False)
    txt1SzContain.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 343, False)
    txt1Mes.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 344, False)
    txt1ContainType.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 345, False)
    txt1NumPickups.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 346, False)
    
    If (WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 347, False) <> "0") Then
        txt1YdsPerWeek.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 347, False)
        Else: txt1YdsPerWeek.Text = ""
    End If
    
    txt1MaxWeight.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 348, False)
    txt1QuanPerMonth.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 349, False)
    txt1HaulsPerMonth.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 350, False)
    txt1WeightPerHaul.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 351, False)
    txt1FlatHaul.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 352, False)
    txt1FlatDisposal.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 353, False)
    txt1FlatHaul.Visible = True
    lbl1FlatHaul.Visible = True
    txt1FlatDisposal.Visible = True
    lbl1FlatDisposal.Visible = True
    txt1WeightPerHaul.Visible = True
    lbl1WeightPerHaul.Visible = True
    txt1HaulsPerMonth.Visible = True
    lbl1HaulsPerMonth.Visible = True
    txt1QuanPerMonth.Visible = True
    lbl1QuanPerMonth.Visible = True
    txt1MaxWeight.Visible = True
    lbl1MaxWeight.Visible = True
    
    txt1BaseSvc.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 359, False), "Currency")
    txt1EnvFee.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 360, False), "Currency")
    txt1FuelFee.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 361, False)
    txt1FeeType1.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 362, False)
    txt1FeePrice1.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 363, False), "Currency")
    txt1FeeType2.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 364, False)
    txt1FeePrice2.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 365, False), "Currency")
    txt1FeeType3.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 366, False)
    txt1FeePrice3.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 367, False), "Currency")
    txt1FeeType4.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 368, False)
    txt1FeePrice4.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 369, False), "Currency")
    txt1FeeType5.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 370, False)
    txt1FeePrice5.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 371, False), "Currency")
    txt1Rate1.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 376, False)
    txt1Rate2.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 377, False)
    txt1Rate3.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 378, False)
    txt1Rate4.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 379, False)
    txt1Rate5.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 380, False)
    
    If (WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 372, False) <> "0") Then
        txt1MonSpend.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 372, False), "Currency")
        Else: txt1MonSpend.Text = ""
    End If

End Sub

Private Sub InsertContain8()
'Insert Container 8 information from the ASR'

    lblCurrVendor.Caption = Worksheets("ASR").Range("OA" & rowNum).Value
    lblCurrService.Caption = Worksheets("ASR").Range("PI" & rowNum).Value
    
    txt1Vendor.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 391, False)
    txt1TypeWaste.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 393, False)
    txt1NumContain.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 394, False)
    txt1SzContain.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 395, False)
    txt1Mes.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 396, False)
    txt1ContainType.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 397, False)
    txt1NumPickups.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 398, False)
    
    If (WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 399, False) <> "0") Then
        txt1YdsPerWeek.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 399, False)
        Else: txt1YdsPerWeek.Text = ""
    End If
    
    txt1MaxWeight.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 400, False)
    txt1QuanPerMonth.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 401, False)
    txt1HaulsPerMonth.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 402, False)
    txt1WeightPerHaul.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 403, False)
    txt1FlatHaul.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 404, False)
    txt1FlatDisposal.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 405, False)
    txt1FlatHaul.Visible = True
    lbl1FlatHaul.Visible = True
    txt1FlatDisposal.Visible = True
    lbl1FlatDisposal.Visible = True
    txt1WeightPerHaul.Visible = True
    lbl1WeightPerHaul.Visible = True
    txt1HaulsPerMonth.Visible = True
    lbl1HaulsPerMonth.Visible = True
    txt1QuanPerMonth.Visible = True
    lbl1QuanPerMonth.Visible = True
    txt1MaxWeight.Visible = True
    lbl1MaxWeight.Visible = True
    
    txt1BaseSvc.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 411, False), "Currency")
    txt1EnvFee.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 412, False), "Currency")
    txt1FuelFee.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 413, False)
    txt1FeeType1.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 414, False)
    txt1FeePrice1.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 415, False), "Currency")
    txt1FeeType2.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 416, False)
    txt1FeePrice2.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 417, False), "Currency")
    txt1FeeType3.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 418, False)
    txt1FeePrice3.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 419, False), "Currency")
    txt1FeeType4.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 420, False)
    txt1FeePrice4.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 421, False), "Currency")
    txt1FeeType5.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 422, False)
    txt1FeePrice5.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 423, False), "Currency")
    txt1Rate1.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 428, False)
    txt1Rate2.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 429, False)
    txt1Rate3.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 430, False)
    txt1Rate4.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 431, False)
    txt1Rate5.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 432, False)

    If (WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 424, False) <> "0") Then
        txt1MonSpend.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:PZ2000"), 424, False), "Currency")
        Else: txt1MonSpend.Text = ""
    End If
    
    
End Sub

Private Sub InsertContain1Standards()
Dim DaysofPickup As String

'Insert Current Information that has already been inserted for Serivce Standardizations'
    If Worksheets("ASR").Range("APS" & rowNum).Value <> "" Then
        txt1Vendor.Text = Worksheets("ASR").Range("APS" & rowNum).Value
    Else:
        txt1Vendor.Text = lblCurrVendor.Caption
    End If
    txt1TypeWaste.Text = Worksheets("ASR").Range("BAP" & rowNum).Value
    txt1NumContain.Value = Worksheets("ASR").Range("BAM" & rowNum).Value
    txt1SzContain.Value = Worksheets("ASR").Range("BAN" & rowNum).Value
    txt1Mes.Text = Worksheets("ASR").Range("BAO" & rowNum).Value
    txt1ContainType.Text = Worksheets("ASR").Range("BBN" & rowNum).Value
    txt1NumPickups.Value = Worksheets("ASR").Range("BAQ" & rowNum).Value
    
    If (Worksheets("ASR").Range("BAR" & rowNum).Value <> "0") Then
        txt1YdsPerWeek.Value = Worksheets("ASR").Range("BAR" & rowNum).Value
        Else: txt1YdsPerWeek.Text = ""
    End If
    
    txt2BaseSvc.Value = Format(Worksheets("ASR").Range("BAS" & rowNum).Value, "Currency")
    txt2EnvFee.Value = Format(Worksheets("ASR").Range("BAT" & rowNum).Value, "Currency")
    txt2FuelFee.Value = Worksheets("ASR").Range("BAU" & rowNum).Value
    txt2FeeType1.Text = Worksheets("ASR").Range("BAV" & rowNum).Value
    txt2FeePrice1.Value = Format(Worksheets("ASR").Range("BAW" & rowNum).Value, "Currency")
    txt2Rate1.Value = Worksheets("ASR").Range("BAX" & rowNum).Value
    txt2FeeType2.Text = Worksheets("ASR").Range("BAY" & rowNum).Value
    txt2FeePrice2.Value = Format(Worksheets("ASR").Range("BAZ" & rowNum).Value, "Currency")
    txt2Rate2.Value = Worksheets("ASR").Range("BBA" & rowNum).Value
    txt2FeeType3.Text = Worksheets("ASR").Range("BBB" & rowNum).Value
    txt2FeePrice3.Value = Format(Worksheets("ASR").Range("BBC" & rowNum).Value, "Currency")
    txt2Rate3.Value = Worksheets("ASR").Range("BBD" & rowNum).Value
    txt2FeeType4.Text = Worksheets("ASR").Range("BBE" & rowNum).Value
    txt2FeePrice4.Value = Format(Worksheets("ASR").Range("BBF" & rowNum).Value, "Currency")
    txt2Rate4.Value = Worksheets("ASR").Range("BBG" & rowNum).Value
    txt2FeeType5.Text = Worksheets("ASR").Range("BBH" & rowNum).Value
    txt2FeePrice5.Value = Format(Worksheets("ASR").Range("BBI" & rowNum).Value, "Currency")
    txt2Rate5.Value = Worksheets("ASR").Range("BBJ" & rowNum).Value
                
    txt2MonSpend.Value = Format(Worksheets("ASR").Range("BBK" & rowNum).Value, "Currency")
    txtOther.Value = Worksheets("ASR").Range("BBP" & rowNum).Value
    DaysofPickup = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 1419, False)
    Call InsertDaysOfWeek(DaysofPickup)
End Sub

Private Sub InsertDaysOfWeek(DaysofPickup As String)
    chkMon1.Value = False
    chkTues1.Value = False
    chkWed1.Value = False
    chkThurs1.Value = False
    chkFri1.Value = False
    chkSat1.Value = False
    chkSun1.Value = False
    chkOnCall1.Value = False
    If DaysofPickup <> "" Then
        'if there is a monday pickup, enable that checkbox'
            If InStr(DaysofPickup, "M") <> 0 Then
                chkMon1.Value = True
            Else: chkMon1.Value = False
            End If
        'if there is a tuesday pickup, enable that checkbox'
            If InStr(DaysofPickup, "T") <> 0 Then
                chkTues1.Value = True
            Else: chkTues1.Value = False
            End If
        'if there is a wednesday pickup, enable that checkbox'
            If InStr(DaysofPickup, "W") <> 0 Then
                chkWed1.Value = True
            Else: chkWed1.Value = False
            End If
        'if there is a thursday pickup, enable that checkbox'
            If InStr(DaysofPickup, "R") <> 0 Then
                chkThurs1.Value = True
            Else: chkThurs1.Value = False
            End If
        'if there is a friday pickup, enable that checkbox'
            If InStr(DaysofPickup, "F") <> 0 Then
                chkFri1.Value = True
            Else: chkFri1.Value = False
            End If
        'if there is a saturday pickup, enable that checkbox'
                If InStr(DaysofPickup, "S") <> 0 Then
                chkSat1.Value = True
            Else: chkSat1.Value = False
            End If
        'if there is a sunday pickup, enable that checkbox'
            If InStr(DaysofPickup, "N") <> 0 Then
                chkSun1.Value = True
            Else: chkSun1.Value = False
            End If
        'if there is a oncall pickup, enable that checkbox'
            If InStr(DaysofPickup, "C") <> 0 Then
                chkOnCall1.Value = True
            Else: chkOnCall1.Value = False
            End If
         'if there is Other pickup, enable that checkbox'
            If InStr(DaysofPickup, "O") <> 0 Then
                chkOther1.Value = True
            Else: chkOther1.Value = False
            End If
    End If

End Sub

Private Sub InsertContain2Standards()
Dim DaysofPickup As String
    'Insert Current information that has already been inserted for Billing Standards'
    If Worksheets("ASR").Range("AQZ" & rowNum).Value <> "" Then
        txt1Vendor.Text = Worksheets("ASR").Range("AQZ" & rowNum).Value
    Else:
        txt1Vendor.Text = lblCurrVendor.Caption
    End If
    txt1TypeWaste.Text = Worksheets("ASR").Range("BBW" & rowNum).Value
    txt1NumContain.Value = Worksheets("ASR").Range("BBT" & rowNum).Value
    txt1SzContain.Value = Worksheets("ASR").Range("BBU" & rowNum).Value
    txt1Mes.Text = Worksheets("ASR").Range("BBV" & rowNum).Value
    txt1ContainType.Text = Worksheets("ASR").Range("BCU" & rowNum).Value
    txt1NumPickups.Value = Worksheets("ASR").Range("BBX" & rowNum).Value
    
    If (Worksheets("ASR").Range("BBY" & rowNum).Value <> "0") Then
        txt1YdsPerWeek.Value = Worksheets("ASR").Range("BBY" & rowNum).Value
        Else: txt1YdsPerWeek.Text = ""
    End If
    
    txt2BaseSvc.Value = Format(Worksheets("ASR").Range("BBZ" & rowNum).Value, "Currency")
    txt2EnvFee.Value = Format(Worksheets("ASR").Range("BCA" & rowNum).Value, "Currency")
    txt2FuelFee.Value = Worksheets("ASR").Range("BCB" & rowNum).Value
    txt2FeeType1.Text = Worksheets("ASR").Range("BCC" & rowNum).Value
    txt2FeePrice1.Value = Format(Worksheets("ASR").Range("BCD" & rowNum).Value, "Currency")
    txt2Rate1.Value = Worksheets("ASR").Range("BCE" & rowNum).Value
    txt2FeeType2.Text = Worksheets("ASR").Range("BCF" & rowNum).Value
    txt2FeePrice2.Value = Format(Worksheets("ASR").Range("BCG" & rowNum).Value, "Currency")
    txt2Rate2.Value = Worksheets("ASR").Range("BCH" & rowNum).Value
    txt2FeeType3.Text = Worksheets("ASR").Range("BCI" & rowNum).Value
    txt2FeePrice3.Value = Format(Worksheets("ASR").Range("BCJ" & rowNum).Value, "Currency")
    txt2Rate3.Value = Worksheets("ASR").Range("BCK" & rowNum).Value
    txt2FeeType4.Text = Worksheets("ASR").Range("BCL" & rowNum).Value
    txt2FeePrice4.Value = Format(Worksheets("ASR").Range("BCM" & rowNum).Value, "Currency")
    txt2Rate4.Value = Worksheets("ASR").Range("BCN" & rowNum).Value
    txt2FeeType5.Text = Worksheets("ASR").Range("BCO" & rowNum).Value
    txt2FeePrice5.Value = Format(Worksheets("ASR").Range("BCP" & rowNum).Value, "Currency")
    txt2Rate5.Value = Worksheets("ASR").Range("BCQ" & rowNum).Value
                
    txt2MonSpend.Value = Format(Worksheets("ASR").Range("BCR" & rowNum).Value, "Currency")
    txtOther.Value = Worksheets("ASR").Range("BCW" & rowNum).Value
    DaysofPickup = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 1452, False)
    Call InsertDaysOfWeek(DaysofPickup)
End Sub

Private Sub InsertContain3Standards()
Dim DaysofPickup As String
'Insert Current information that has already been inserted for Billing Standards'
    If Worksheets("ASR").Range("ASG" & rowNum).Value <> "" Then
        txt1Vendor.Text = Worksheets("ASR").Range("ASG" & rowNum).Value
    Else:
        txt1Vendor.Text = lblCurrVendor.Caption
    End If
    txt1TypeWaste.Text = Worksheets("ASR").Range("BDD" & rowNum).Value
    txt1NumContain.Value = Worksheets("ASR").Range("BDA" & rowNum).Value
    txt1SzContain.Value = Worksheets("ASR").Range("BDB" & rowNum).Value
    txt1Mes.Text = Worksheets("ASR").Range("BDC" & rowNum).Value
    txt1ContainType.Text = Worksheets("ASR").Range("BEB" & rowNum).Value
    txt1NumPickups.Value = Worksheets("ASR").Range("BDE" & rowNum).Value
    
    If (Worksheets("ASR").Range("BDF" & rowNum).Value <> "0") Then
        txt1YdsPerWeek.Value = Worksheets("ASR").Range("BDF" & rowNum).Value
        Else: txt1YdsPerWeek.Text = ""
    End If
    
    txt2BaseSvc.Value = Format(Worksheets("ASR").Range("BDG" & rowNum).Value, "Currency")
    txt2EnvFee.Value = Format(Worksheets("ASR").Range("BDH" & rowNum).Value, "Currency")
    txt2FuelFee.Value = Worksheets("ASR").Range("BDI" & rowNum).Value
    txt2FeeType1.Text = Worksheets("ASR").Range("BDJ" & rowNum).Value
    txt2FeePrice1.Value = Format(Worksheets("ASR").Range("BDK" & rowNum).Value, "Currency")
    txt2Rate1.Value = Worksheets("ASR").Range("BDL" & rowNum).Value
    txt2FeeType2.Text = Worksheets("ASR").Range("BDM" & rowNum).Value
    txt2FeePrice2.Value = Format(Worksheets("ASR").Range("BDN" & rowNum).Value, "Currency")
    txt2Rate2.Value = Worksheets("ASR").Range("BDO" & rowNum).Value
    txt2FeeType3.Text = Worksheets("ASR").Range("BDP" & rowNum).Value
    txt2FeePrice3.Value = Format(Worksheets("ASR").Range("BDQ" & rowNum).Value, "Currency")
    txt2Rate3.Value = Worksheets("ASR").Range("BDR" & rowNum).Value
    txt2FeeType4.Text = Worksheets("ASR").Range("BDS" & rowNum).Value
    txt2FeePrice4.Value = Format(Worksheets("ASR").Range("BDT" & rowNum).Value, "Currency")
    txt2Rate4.Value = Worksheets("ASR").Range("BDU" & rowNum).Value
    txt2FeeType5.Text = Worksheets("ASR").Range("BDV" & rowNum).Value
    txt2FeePrice5.Value = Format(Worksheets("ASR").Range("BDW" & rowNum).Value, "Currency")
    txt2Rate5.Value = Worksheets("ASR").Range("BDX" & rowNum).Value
                
    txt2MonSpend.Value = Format(Worksheets("ASR").Range("BDY" & rowNum).Value, "Currency")
    txtOther.Value = Worksheets("ASR").Range("BED" & rowNum).Value
    DaysofPickup = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 1485, False)
    Call InsertDaysOfWeek(DaysofPickup)
End Sub

Private Sub InsertContain4Standards()
Dim DaysofPickup As String
'Insert Current information that has already been inserted for Billing Standards'
    If Worksheets("ASR").Range("ATN" & rowNum).Value <> "" Then
        txt1Vendor.Text = Worksheets("ASR").Range("ATN" & rowNum).Value
    Else:
        txt1Vendor.Text = lblCurrVendor.Caption
    End If
    txt1TypeWaste.Text = Worksheets("ASR").Range("BEK" & rowNum).Value
    txt1NumContain.Value = Worksheets("ASR").Range("BEH" & rowNum).Value
    txt1SzContain.Value = Worksheets("ASR").Range("BEI" & rowNum).Value
    txt1Mes.Text = Worksheets("ASR").Range("BEJ" & rowNum).Value
    txt1ContainType.Text = Worksheets("ASR").Range("BFI" & rowNum).Value
    txt1NumPickups.Value = Worksheets("ASR").Range("BEL" & rowNum).Value
    
    If (Worksheets("ASR").Range("BEM" & rowNum).Value <> "0") Then
        txt1YdsPerWeek.Value = Worksheets("ASR").Range("BEM" & rowNum).Value
        Else: txt1YdsPerWeek.Text = ""
    End If
    
    txt2BaseSvc.Value = Format(Worksheets("ASR").Range("BEN" & rowNum).Value, "Currency")
    txt2EnvFee.Value = Format(Worksheets("ASR").Range("BEO" & rowNum).Value, "Currency")
    txt2FuelFee.Value = Worksheets("ASR").Range("BEP" & rowNum).Value
    txt2FeeType1.Text = Worksheets("ASR").Range("BEQ" & rowNum).Value
    txt2FeePrice1.Value = Format(Worksheets("ASR").Range("BER" & rowNum).Value, "Currency")
    txt2Rate1.Value = Worksheets("ASR").Range("BES" & rowNum).Value
    txt2FeeType2.Text = Worksheets("ASR").Range("BET" & rowNum).Value
    txt2FeePrice2.Value = Format(Worksheets("ASR").Range("BEU" & rowNum).Value, "Currency")
    txt2Rate2.Value = Worksheets("ASR").Range("BEV" & rowNum).Value
    txt2FeeType3.Text = Worksheets("ASR").Range("BEW" & rowNum).Value
    txt2FeePrice3.Value = Format(Worksheets("ASR").Range("BEX" & rowNum).Value, "Currency")
    txt2Rate3.Value = Worksheets("ASR").Range("BEY" & rowNum).Value
    txt2FeeType4.Text = Worksheets("ASR").Range("BEZ" & rowNum).Value
    txt2FeePrice4.Value = Format(Worksheets("ASR").Range("BFA" & rowNum).Value, "Currency")
    txt2Rate4.Value = Worksheets("ASR").Range("BFB" & rowNum).Value
    txt2FeeType5.Text = Worksheets("ASR").Range("BFC" & rowNum).Value
    txt2FeePrice5.Value = Format(Worksheets("ASR").Range("BFD" & rowNum).Value, "Currency")
    txt2Rate5.Value = Worksheets("ASR").Range("BFE" & rowNum).Value
                
    txt2MonSpend.Value = Format(Worksheets("BFF").Range("BBK" & rowNum).Value, "Currency")
    txtOther.Value = Worksheets("ASR").Range("BFK" & rowNum).Value
        DaysofPickup = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 1518, False)
    Call InsertDaysOfWeek(DaysofPickup)
End Sub

Private Sub InsertContain5Standards()
Dim DaysofPickup As String
'Insert Current information that has already been inserted for Billing Standards'
    If Worksheets("ASR").Range("AUU" & rowNum).Value <> "" Then
        txt1Vendor.Text = Worksheets("ASR").Range("AUU" & rowNum).Value
    Else:
        txt1Vendor.Text = lblCurrVendor.Caption
    End If
    txt1TypeWaste.Text = Worksheets("ASR").Range("BFR" & rowNum).Value
    txt1NumContain.Value = Worksheets("ASR").Range("BFO" & rowNum).Value
    txt1SzContain.Value = Worksheets("ASR").Range("BFP" & rowNum).Value
    txt1Mes.Text = Worksheets("ASR").Range("BEQ" & rowNum).Value
    txt1ContainType.Text = Worksheets("ASR").Range("BGP" & rowNum).Value
    txt1NumPickups.Value = Worksheets("ASR").Range("BFS" & rowNum).Value
    
    If (Worksheets("ASR").Range("BFT" & rowNum).Value <> "0") Then
        txt1YdsPerWeek.Value = Worksheets("ASR").Range("BFT" & rowNum).Value
        Else: txt1YdsPerWeek.Text = ""
    End If
    
    txt2BaseSvc.Value = Format(Worksheets("ASR").Range("BFU" & rowNum).Value, "Currency")
    txt2EnvFee.Value = Format(Worksheets("ASR").Range("BFV" & rowNum).Value, "Currency")
    txt2FuelFee.Value = Worksheets("ASR").Range("BFW" & rowNum).Value
    txt2FeeType1.Text = Worksheets("ASR").Range("BFX" & rowNum).Value
    txt2FeePrice1.Value = Format(Worksheets("ASR").Range("BFY" & rowNum).Value, "Currency")
    txt2Rate1.Value = Worksheets("ASR").Range("BFZ" & rowNum).Value
    txt2FeeType2.Text = Worksheets("ASR").Range("BGA" & rowNum).Value
    txt2FeePrice2.Value = Format(Worksheets("ASR").Range("BGB" & rowNum).Value, "Currency")
    txt2Rate2.Value = Worksheets("ASR").Range("BGC" & rowNum).Value
    txt2FeeType3.Text = Worksheets("ASR").Range("BGD" & rowNum).Value
    txt2FeePrice3.Value = Format(Worksheets("ASR").Range("BGE" & rowNum).Value, "Currency")
    txt2Rate3.Value = Worksheets("ASR").Range("BGF" & rowNum).Value
    txt2FeeType4.Text = Worksheets("ASR").Range("BGG" & rowNum).Value
    txt2FeePrice4.Value = Format(Worksheets("ASR").Range("BGH" & rowNum).Value, "Currency")
    txt2Rate4.Value = Worksheets("ASR").Range("BGI" & rowNum).Value
    txt2FeeType5.Text = Worksheets("ASR").Range("BGJ" & rowNum).Value
    txt2FeePrice5.Value = Format(Worksheets("ASR").Range("BGK" & rowNum).Value, "Currency")
    txt2Rate5.Value = Worksheets("ASR").Range("BGL" & rowNum).Value
                
    txt2MonSpend.Value = Format(Worksheets("ASR").Range("BGM" & rowNum).Value, "Currency")
    txtOther.Value = Worksheets("ASR").Range("BGR" & rowNum).Value
    DaysofPickup = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 1551, False)
    Call InsertDaysOfWeek(DaysofPickup)
End Sub

Private Sub InsertContain6Standards()
Dim DaysofPickup As String
'Insert Current information that has already been inserted for Billing Standards'
    If Worksheets("ASR").Range("AWB" & rowNum).Value <> "" Then
        txt1Vendor.Text = Worksheets("ASR").Range("AWB" & rowNum).Value
    Else:
        txt1Vendor.Text = lblCurrVendor.Caption
    End If
    txt1TypeWaste.Text = Worksheets("ASR").Range("BGY" & rowNum).Value
    txt1NumContain.Value = Worksheets("ASR").Range("BGV" & rowNum).Value
    txt1SzContain.Value = Worksheets("ASR").Range("BGW" & rowNum).Value
    txt1Mes.Text = Worksheets("ASR").Range("BGX" & rowNum).Value
    txt1ContainType.Text = Worksheets("ASR").Range("BHW" & rowNum).Value
    txt1NumPickups.Value = Worksheets("ASR").Range("BGZ" & rowNum).Value
    
    If (Worksheets("ASR").Range("BHA" & rowNum).Value <> "0") Then
        txt1YdsPerWeek.Value = Worksheets("ASR").Range("BHA" & rowNum).Value
        Else: txt1YdsPerWeek.Text = ""
    End If
    
    txt2MaxWeight.Value = Worksheets("ASR").Range("BHY" & rowNum).Value
    txt2QuanPerMonth.Value = Worksheets("ASR").Range("BHZ" & rowNum).Value
    txt2HaulsPerMonth.Value = Worksheets("ASR").Range("BIA" & rowNum).Value
    txt2WeightPerHaul.Value = Worksheets("ASR").Range("BIB" & rowNum).Value
    txt2FlatHaul.Value = Worksheets("ASR").Range("BIC" & rowNum).Value
    txt2FlatDisposal.Value = Worksheets("ASR").Range("BID" & rowNum).Value
    txt2FlatHaul.Visible = True
    lbl2FlatHaul.Visible = True
    txt2FlatDisposal.Visible = True
    lbl2FlatDisposal.Visible = True
    txt2WeightPerHaul.Visible = True
    lbl2WeightPerHaul.Visible = True
    txt2HaulsPerMonth.Visible = True
    lbl2HaulsPerMonth.Visible = True
    txt2QuanPerMonth.Visible = True
    lbl2QuanPerMonth.Visible = True
    txt2MaxWeight.Visible = True
    lbl2MaxWeight.Visible = True
    
    txt2BaseSvc.Value = Format(Worksheets("ASR").Range("BHB" & rowNum).Value, "Currency")
    txt2EnvFee.Value = Format(Worksheets("ASR").Range("BHC" & rowNum).Value, "Currency")
    txt2FuelFee.Value = Worksheets("ASR").Range("BHD" & rowNum).Value
    txt2FeeType1.Text = Worksheets("ASR").Range("BHE" & rowNum).Value
    txt2FeePrice1.Value = Format(Worksheets("ASR").Range("BHF" & rowNum).Value, "Currency")
    txt2Rate1.Value = Worksheets("ASR").Range("BHG" & rowNum).Value
    txt2FeeType2.Text = Worksheets("ASR").Range("BHH" & rowNum).Value
    txt2FeePrice2.Value = Format(Worksheets("ASR").Range("BHI" & rowNum).Value, "Currency")
    txt2Rate2.Value = Worksheets("ASR").Range("BHJ" & rowNum).Value
    txt2FeeType3.Text = Worksheets("ASR").Range("BHK" & rowNum).Value
    txt2FeePrice3.Value = Format(Worksheets("ASR").Range("BHL" & rowNum).Value, "Currency")
    txt2Rate3.Value = Worksheets("ASR").Range("BHM" & rowNum).Value
    txt2FeeType4.Text = Worksheets("ASR").Range("BHN" & rowNum).Value
    txt2FeePrice4.Value = Format(Worksheets("ASR").Range("BHO" & rowNum).Value, "Currency")
    txt2Rate4.Value = Worksheets("ASR").Range("BHP" & rowNum).Value
    txt2FeeType5.Text = Worksheets("ASR").Range("BHQ" & rowNum).Value
    txt2FeePrice5.Value = Format(Worksheets("ASR").Range("BHR" & rowNum).Value, "Currency")
    txt2Rate5.Value = Worksheets("ASR").Range("BHS" & rowNum).Value
                
    txt2MonSpend.Value = Format(Worksheets("ASR").Range("BHT" & rowNum).Value, "Currency")
    txtOther.Value = Worksheets("ASR").Range("BIE" & rowNum).Value
    DaysofPickup = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 1584, False)
    Call InsertDaysOfWeek(DaysofPickup)
End Sub

Private Sub InsertContain7Standards()
Dim DaysofPickup As String
'Insert Current information that has already been inserted for Billing Standards'
    If Worksheets("ASR").Range("AXN" & rowNum).Value <> "" Then
        txt1Vendor.Text = Worksheets("ASR").Range("AXN" & rowNum).Value
    Else:
        txt1Vendor.Text = lblCurrVendor.Caption
    End If
    txt1TypeWaste.Text = Worksheets("ASR").Range("BIK" & rowNum).Value
    txt1NumContain.Value = Worksheets("ASR").Range("BIH" & rowNum).Value
    txt1SzContain.Value = Worksheets("ASR").Range("BII" & rowNum).Value
    txt1Mes.Text = Worksheets("ASR").Range("BIJ" & rowNum).Value
    txt1ContainType.Text = Worksheets("ASR").Range("BJI" & rowNum).Value
    txt1NumPickups.Value = Worksheets("ASR").Range("BIL" & rowNum).Value
    
    If (Worksheets("ASR").Range("BIM" & rowNum).Value <> "0") Then
        txt1YdsPerWeek.Value = Worksheets("ASR").Range("BIM" & rowNum).Value
        Else: txt1YdsPerWeek.Text = ""
    End If
    
    txt2MaxWeight.Value = Worksheets("ASR").Range("BJK" & rowNum).Value
    txt2QuanPerMonth.Value = Worksheets("ASR").Range("BJL" & rowNum).Value
    txt2HaulsPerMonth.Value = Worksheets("ASR").Range("FJM" & rowNum).Value
    txt2WeightPerHaul.Value = Worksheets("ASR").Range("BJN" & rowNum).Value
    txt2FlatHaul.Value = Worksheets("ASR").Range("BJO" & rowNum).Value
    txt2FlatDisposal.Value = Worksheets("ASR").Range("BJP" & rowNum).Value
    txt2FlatHaul.Visible = True
    lbl2FlatHaul.Visible = True
    txt2FlatDisposal.Visible = True
    lbl2FlatDisposal.Visible = True
    txt2WeightPerHaul.Visible = True
    lbl2WeightPerHaul.Visible = True
    txt2HaulsPerMonth.Visible = True
    lbl2HaulsPerMonth.Visible = True
    txt2QuanPerMonth.Visible = True
    lbl2QuanPerMonth.Visible = True
    txt2MaxWeight.Visible = True
    lbl2MaxWeight.Visible = True
    
    txt2BaseSvc.Value = Format(Worksheets("ASR").Range("BIN" & rowNum).Value, "Currency")
    txt2EnvFee.Value = Format(Worksheets("ASR").Range("BIO" & rowNum).Value, "Currency")
    txt2FuelFee.Value = Worksheets("ASR").Range("BIP" & rowNum).Value
    txt2FeeType1.Text = Worksheets("ASR").Range("BIQ" & rowNum).Value
    txt2FeePrice1.Value = Format(Worksheets("ASR").Range("BIR" & rowNum).Value, "Currency")
    txt2Rate1.Value = Worksheets("ASR").Range("BIS" & rowNum).Value
    txt2FeeType2.Text = Worksheets("ASR").Range("BIT" & rowNum).Value
    txt2FeePrice2.Value = Format(Worksheets("ASR").Range("BIU" & rowNum).Value, "Currency")
    txt2Rate2.Value = Worksheets("ASR").Range("BIV" & rowNum).Value
    txt2FeeType3.Text = Worksheets("ASR").Range("BIW" & rowNum).Value
    txt2FeePrice3.Value = Format(Worksheets("ASR").Range("BIX" & rowNum).Value, "Currency")
    txt2Rate3.Value = Worksheets("ASR").Range("BIY" & rowNum).Value
    txt2FeeType4.Text = Worksheets("ASR").Range("BIZ" & rowNum).Value
    txt2FeePrice4.Value = Format(Worksheets("ASR").Range("BJA" & rowNum).Value, "Currency")
    txt2Rate4.Value = Worksheets("ASR").Range("BJB" & rowNum).Value
    txt2FeeType5.Text = Worksheets("ASR").Range("BJC" & rowNum).Value
    txt2FeePrice5.Value = Format(Worksheets("ASR").Range("BJD" & rowNum).Value, "Currency")
    txt2Rate5.Value = Worksheets("ASR").Range("BJE" & rowNum).Value
                
    txt2MonSpend.Value = Format(Worksheets("ASR").Range("BJF" & rowNum).Value, "Currency")
    txtOther.Value = Worksheets("ASR").Range("BJQ" & rowNum).Value
    DaysofPickup = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 1622, False)
    Call InsertDaysOfWeek(DaysofPickup)
End Sub

Private Sub InsertContain8Standards()
Dim DaysofPickup As String
'Insert Current information that has already been inserted for Billing Standards'
    If Worksheets("ASR").Range("AYZ" & rowNum).Value <> "" Then
        txt1Vendor.Text = Worksheets("ASR").Range("AYZ" & rowNum).Value
    Else:
        txt1Vendor.Text = lblCurrVendor.Caption
    End If
    txt1TypeWaste.Text = Worksheets("ASR").Range("BJW" & rowNum).Value
    txt1NumContain.Value = Worksheets("ASR").Range("BJT" & rowNum).Value
    txt1SzContain.Value = Worksheets("ASR").Range("BJU" & rowNum).Value
    txt1Mes.Text = Worksheets("ASR").Range("BJV" & rowNum).Value
    txt1ContainType.Text = Worksheets("ASR").Range("BKU" & rowNum).Value
    txt1NumPickups.Value = Worksheets("ASR").Range("BJX" & rowNum).Value
    
    If (Worksheets("ASR").Range("BJY" & rowNum).Value <> "0") Then
        txt1YdsPerWeek.Value = Worksheets("ASR").Range("BJY" & rowNum).Value
        Else: txt1YdsPerWeek.Text = ""
    End If
    
    txt2MaxWeight.Value = Worksheets("ASR").Range("BKW" & rowNum).Value
    txt2QuanPerMonth.Value = Worksheets("ASR").Range("BKX" & rowNum).Value
    txt2HaulsPerMonth.Value = Worksheets("ASR").Range("BKY" & rowNum).Value
    txt2WeightPerHaul.Value = Worksheets("ASR").Range("BKZ" & rowNum).Value
    txt2FlatHaul.Value = Worksheets("ASR").Range("BLA" & rowNum).Value
    txt2FlatDisposal.Value = Worksheets("ASR").Range("BLB" & rowNum).Value
    txt2FlatHaul.Visible = True
    lbl2FlatHaul.Visible = True
    txt2FlatDisposal.Visible = True
    lbl2FlatDisposal.Visible = True
    txt2WeightPerHaul.Visible = True
    lbl2WeightPerHaul.Visible = True
    txt2HaulsPerMonth.Visible = True
    lbl2HaulsPerMonth.Visible = True
    txt2QuanPerMonth.Visible = True
    lbl2QuanPerMonth.Visible = True
    txt2MaxWeight.Visible = True
    lbl2MaxWeight.Visible = True
    
    txt2BaseSvc.Value = Format(Worksheets("ASR").Range("BJZ" & rowNum).Value, "Currency")
    txt2EnvFee.Value = Format(Worksheets("ASR").Range("BKA" & rowNum).Value, "Currency")
    txt2FuelFee.Value = Worksheets("ASR").Range("BKB" & rowNum).Value
    txt2FeeType1.Text = Worksheets("ASR").Range("BKC" & rowNum).Value
    txt2FeePrice1.Value = Format(Worksheets("ASR").Range("BKD" & rowNum).Value, "Currency")
    txt2Rate1.Value = Worksheets("ASR").Range("BKE" & rowNum).Value
    txt2FeeType2.Text = Worksheets("ASR").Range("BKF" & rowNum).Value
    txt2FeePrice2.Value = Format(Worksheets("ASR").Range("BKG" & rowNum).Value, "Currency")
    txt2Rate2.Value = Worksheets("ASR").Range("BKH" & rowNum).Value
    txt2FeeType3.Text = Worksheets("ASR").Range("BKI" & rowNum).Value
    txt2FeePrice3.Value = Format(Worksheets("ASR").Range("BKJ" & rowNum).Value, "Currency")
    txt2Rate3.Value = Worksheets("ASR").Range("BKK" & rowNum).Value
    txt2FeeType4.Text = Worksheets("ASR").Range("BKL" & rowNum).Value
    txt2FeePrice4.Value = Format(Worksheets("ASR").Range("BKM" & rowNum).Value, "Currency")
    txt2Rate4.Value = Worksheets("ASR").Range("BKN" & rowNum).Value
    txt2FeeType5.Text = Worksheets("ASR").Range("BKO" & rowNum).Value
    txt2FeePrice5.Value = Format(Worksheets("ASR").Range("BKP" & rowNum).Value, "Currency")
    txt2Rate5.Value = Worksheets("ASR").Range("BKQ" & rowNum).Value
                
    txt2MonSpend.Value = Format(Worksheets("ASR").Range("BKR" & rowNum).Value, "Currency")
    txtOther.Value = Worksheets("ASR").Range("BLC" & rowNum).Value
    DaysofPickup = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:CZZ1099"), 1660, False)
    Call InsertDaysOfWeek(DaysofPickup)
End Sub

Private Sub InsertContain1AutoInput()
    Dim Vendor As String
    Dim DaysofPickup As String
    Vendor = Worksheets("ASR").Range("APS" & rowNum).Value
    Select Case Vendor
    
    Case Is <> ""    'Vendor Switch - autopopulate to SS
        txt1Vendor.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1111, False)
        txt1NumContain.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1112, False)
        txt1TypeWaste.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1115, False)
        txt1SzContain.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1113, False)
        txt1Mes.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1114, False)
        txt1ContainType.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1140, False)
        txt1NumPickups.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1116, False)
        txt2BaseSvc.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1118, False), "Currency")
        txt2EnvFee.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1119, False), "Currency")
        txt2FuelFee.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1120, False)
        txt2FeeType1.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1121, False)
        txt2FeePrice1.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1122, False), "Currency")
        txt2Rate1.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1123, False)
        txt2FeeType2.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1124, False)
        txt2FeePrice2.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1125, False), "Currency")
        txt2Rate2.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1126, False)
        txt2FeeType3.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1127, False)
        txt2FeePrice3.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1128, False), "Currency")
        txt2Rate3.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1129, False)
        txt2FeeType4.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1130, False)
        txt2FeePrice4.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1131, False), "Currency")
        txt2Rate4.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1132, False)
        txt2FeeType5.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1133, False)
        txt2FeePrice5.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1134, False), "Currency")
        txt2Rate5.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1135, False)
        txt2MonSpend = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1136, False), "Currency")
        txtOther.Value = ""
        DaysofPickup = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG100"), 1141, False)
    
    Case Else 'Rate Reduction accepted or partial - autopopulate to SS service'
        Vendor = Worksheets("ASR").Range("AEZ" & rowNum).Value
        Select Case Vendor
        Case Is <> ""
            txt1Vendor.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 832, False)
            txt1NumContain.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 833, False)
            txt1TypeWaste.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 836, False)
            txt1SzContain.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 834, False)
            txt1Mes.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 835, False)
            txt1ContainType.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 32, False)
            txt1NumPickups.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 837, False)
            txt2BaseSvc.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 839, False), "Currency")
            txt2EnvFee.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 840, False), "Currency")
            txt2FuelFee.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 841, False)
            txt2FeeType1.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 842, False)
            txt2FeePrice1.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 843, False), "Currency")
            txt2FeeType2.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 845, False)
            txt2FeePrice2.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 846, False), "Currency")
            txt2FeeType3.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 848, False)
            txt2FeePrice3.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 849, False), "Currency")
            txt2FeeType4.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 851, False)
            txt2FeePrice4.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 852, False), "Currency")
            txt2FeeType5.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 854, False)
            txt2FeePrice5.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 855, False), "Currency")
            txt2Rate1.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 844, False)
            txt2Rate2.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 847, False)
            txt2Rate3.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 850, False)
            txt2Rate4.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 853, False)
            txt2Rate5.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 856, False)
            txt2MonSpend.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 857, False), "Currency")
            txtOther.Value = ""
            DaysofPickup = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG100"), 37, False)
            
        Case Else 'Billing Correction accepted or partial - autopopulate to SS service'
            Vendor = Worksheets("ASR").Range("UG" & rowNum).Value
            Select Case Vendor
            Case Is <> ""
                txt1Vendor.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 553, False)
                txt1NumContain.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 554, False)
                txt1TypeWaste.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 557, False)
                txt1SzContain.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 555, False)
                txt1Mes.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 556, False)
                txt1ContainType.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 32, False)
                txt1NumPickups.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 558, False)
                txt2BaseSvc.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 560, False), "Currency")
                txt2EnvFee.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 561, False), "Currency")
                txt2FuelFee.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 562, False)
                txt2FeeType1.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 563, False)
                txt2FeePrice1.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 564, False), "Currency")
                txt2FeeType2.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 566, False)
                txt2FeePrice2.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 567, False), "Currency")
                txt2FeeType3.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 569, False)
                txt2FeePrice3.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 570, False), "Currency")
                txt2FeeType4.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 572, False)
                txt2FeePrice4.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 573, False), "Currency")
                txt2FeeType5.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 575, False)
                txt2FeePrice5.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 576, False), "Currency")
                txt2Rate1.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 565, False)
                txt2Rate2.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 568, False)
                txt2Rate3.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 571, False)
                txt2Rate4.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 574, False)
                txt2Rate5.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 577, False)
                txt2MonSpend.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 578, False), "Currency")
                txtOther.Value = ""
                DaysofPickup = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG100"), 37, False)
            
            Case Else 'Current Service - autopopulate to SS service'
                txt1Vendor.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 27, False)
                txt1NumContain.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 29, False)
                txt1TypeWaste.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 33, False)
                txt1SzContain.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 30, False)
                txt1Mes.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 31, False)
                txt1ContainType.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 32, False)
                txt1NumPickups.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 34, False)
                txt2BaseSvc.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 41, False), "Currency")
                txt2EnvFee.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 42, False), "Currency")
                txt2FuelFee.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 43, False)
                txt2FeeType1.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 44, False)
                txt2FeePrice1.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 45, False), "Currency")
                txt2FeeType2.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 46, False)
                txt2FeePrice2.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 47, False), "Currency")
                txt2FeeType3.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 48, False)
                txt2FeePrice3.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 49, False), "Currency")
                txt2FeeType4.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 50, False)
                txt2FeePrice4.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 51, False), "Currency")
                txt2FeeType5.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 52, False)
                txt2FeePrice5.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 53, False), "Currency")
                txt2Rate1.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 58, False)
                txt2Rate2.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 59, False)
                txt2Rate3.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 60, False)
                txt2Rate4.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 61, False)
                txt2Rate5.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 62, False)
                txt2MonSpend.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 54, False), "Currency")
                txtOther.Value = ""
                DaysofPickup = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG100"), 37, False)
            End Select
        End Select
    End Select
    
    Call InsertDaysOfWeek(DaysofPickup)
End Sub

Private Sub InsertContain2AutoInput()
    'Insert Container 2 information from the ASR'
    Dim Vendor As String
    Dim DaysofPickup As String
    Vendor = Worksheets("ASR").Range("AQZ" & rowNum).Value
    Select Case Vendor
    
    Case Is <> ""    'Vendor Switch - autopopulate to SS
        txt1Vendor.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1144, False)
        txt1NumContain.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1145, False)
        txt1TypeWaste.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1148, False)
        txt1SzContain.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1146, False)
        txt1Mes.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1147, False)
        txt1ContainType.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1173, False)
        txt1NumPickups.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1149, False)
        txt2BaseSvc.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1151, False), "Currency")
        txt2EnvFee.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1152, False), "Currency")
        txt2FuelFee.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1153, False)
        txt2FeeType1.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1154, False)
        txt2FeePrice1.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1155, False), "Currency")
        txt2FeeType2.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1157, False)
        txt2FeePrice2.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1158, False), "Currency")
        txt2FeeType3.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1160, False)
        txt2FeePrice3.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1161, False), "Currency")
        txt2FeeType4.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1163, False)
        txt2FeePrice4.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1164, False), "Currency")
        txt2FeeType5.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1166, False)
        txt2FeePrice5.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1167, False), "Currency")
        txt2Rate1.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1156, False)
        txt2Rate2.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1159, False)
        txt2Rate3.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1162, False)
        txt2Rate4.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1165, False)
        txt2Rate5.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1168, False)
        txt2MonSpend.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1169, False), "Currency")
        txtOther.Value = ""
        DaysofPickup = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG100"), 1174, False)
    
    Case Else 'Rate Reduction accepted or partial - autopopulate to SS service'
        Vendor = Worksheets("ASR").Range("AGG" & rowNum).Value
        Select Case Vendor
        Case Is <> ""
            txt1Vendor.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 865, False)
            txt1NumContain.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 866, False)
            txt1TypeWaste.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 869, False)
            txt1SzContain.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 867, False)
            txt1Mes.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 868, False)
            txt1ContainType.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 85, False)
            txt1NumPickups.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 870, False)
            txt2BaseSvc.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 872, False), "Currency")
            txt2EnvFee.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 873, False), "Currency")
            txt2FuelFee.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 874, False)
            txt2FeeType1.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 875, False)
            txt2FeePrice1.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 876, False), "Currency")
            txt2FeeType2.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 878, False)
            txt2FeePrice2.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 879, False), "Currency")
            txt2FeeType3.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 881, False)
            txt2FeePrice3.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 882, False), "Currency")
            txt2FeeType4.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 884, False)
            txt2FeePrice4.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 885, False), "Currency")
            txt2FeeType5.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 887, False)
            txt2FeePrice5.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 888, False), "Currency")
            txt2Rate1.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 877, False)
            txt2Rate2.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 880, False)
            txt2Rate3.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 883, False)
            txt2Rate4.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 886, False)
            txt2Rate5.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 889, False)
            txt2MonSpend.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 890, False), "Currency")
            txtOther.Value = ""
            DaysofPickup = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG100"), 89, False)
        
        Case Else 'Billing Correction accepted or partial - autopopulate to SS service'
            Vendor = Worksheets("ASR").Range("VN" & rowNum).Value
            Select Case Vendor
            Case Is <> ""
                txt1Vendor.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 586, False)
                txt1NumContain.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 587, False)
                txt1TypeWaste.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 590, False)
                txt1SzContain.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 588, False)
                txt1Mes.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 589, False)
                txt1ContainType.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 85, False)
                txt1NumPickups.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 591, False)
                txt2BaseSvc.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 593, False), "Currency")
                txt2EnvFee.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 594, False), "Currency")
                txt2FuelFee.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 595, False)
                txt2FeeType1.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 596, False)
                txt2FeePrice1.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 597, False), "Currency")
                txt2FeeType2.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 599, False)
                txt2FeePrice2.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 600, False), "Currency")
                txt2FeeType3.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 602, False)
                txt2FeePrice3.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 603, False), "Currency")
                txt2FeeType4.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 605, False)
                txt2FeePrice4.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 606, False), "Currency")
                txt2FeeType5.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 608, False)
                txt2FeePrice5.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 609, False), "Currency")
                txt2Rate1.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 598, False)
                txt2Rate2.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 601, False)
                txt2Rate3.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 604, False)
                txt2Rate4.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 607, False)
                txt2Rate5.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 610, False)
                txt2MonSpend.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 611, False), "Currency")
                txtOther.Value = ""
                DaysofPickup = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG100"), 89, False)
            
            Case Else 'Current Service - autopopulate SS service'
                txt1Vendor.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 79, False)
                txt1NumContain.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 82, False)
                txt1TypeWaste.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 81, False)
                txt1SzContain.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 83, False)
                txt1Mes.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 84, False)
                txt1ContainType.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 85, False)
                txt1NumPickups.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 86, False)
                txt2BaseSvc.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 93, False), "Currency")
                txt2EnvFee.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 94, False), "Currency")
                txt2FuelFee.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 95, False)
                txt2FeeType1.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 96, False)
                txt2FeePrice1.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 97, False), "Currency")
                txt2FeeType2.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 98, False)
                txt2FeePrice2.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 99, False), "Currency")
                txt2FeeType3.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 100, False)
                txt2FeePrice3.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 101, False), "Currency")
                txt2FeeType4.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 102, False)
                txt2FeePrice4.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 103, False), "Currency")
                txt2FeeType5.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 104, False)
                txt2FeePrice5.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 105, False), "Currency")
                txt2Rate1.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 110, False)
                txt2Rate2.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 111, False)
                txt2Rate3.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 112, False)
                txt2Rate4.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 113, False)
                txt2Rate5.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 114, False)
                txt2MonSpend.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 106, False), "Currency")
                txtOther.Value = ""
                DaysofPickup = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG100"), 89, False)
            End Select
        End Select
    End Select
    
    Call InsertDaysOfWeek(DaysofPickup)
End Sub

Private Sub InsertContain3AutoInput()
'Insert Current Spend from Container 3'
    Dim Vendor As String
    Dim DaysofPickup As String
    Vendor = Worksheets("ASR").Range("ASG" & rowNum).Value
    Select Case Vendor
    
    Case Is <> ""    'Vendor Switch - autopopulate to SS
        txt1Vendor.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1177, False)
        txt1NumContain.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1178, False)
        txt1TypeWaste.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1181, False)
        txt1SzContain.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1179, False)
        txt1Mes.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1180, False)
        txt1ContainType.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1206, False)
        txt1NumPickups.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1182, False)
        txt2BaseSvc.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1184, False), "Currency")
        txt2EnvFee.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1185, False), "Currency")
        txt2FuelFee.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1186, False)
        txt2FeeType1.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1187, False)
        txt2FeePrice1.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1188, False), "Currency")
        txt2FeeType2.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1190, False)
        txt2FeePrice2.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1191, False), "Currency")
        txt2FeeType3.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1193, False)
        txt2FeePrice3.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1194, False), "Currency")
        txt2FeeType4.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1196, False)
        txt2FeePrice4.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1197, False), "Currency")
        txt2FeeType5.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1199, False)
        txt2FeePrice5.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1200, False), "Currency")
        txt2Rate1.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1189, False)
        txt2Rate2.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1192, False)
        txt2Rate3.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1195, False)
        txt2Rate4.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1198, False)
        txt2Rate5.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1201, False)
        txt2MonSpend.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1202, False), "Currency")
        txtOther.Value = ""
        DaysofPickup = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG100"), 1207, False)
    
    Case Else 'Rate Reduction accepted or partial - autopopulate to SS service'
        Vendor = Worksheets("ASR").Range("AHN" & rowNum).Value
        Select Case Vendor
        Case Is <> ""
            txt1Vendor.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 898, False)
            txt1NumContain.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 899, False)
            txt1TypeWaste.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 902, False)
            txt1SzContain.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 900, False)
            txt1Mes.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 901, False)
            txt1ContainType.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 137, False)
            txt1NumPickups.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 903, False)
            txt2BaseSvc.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 905, False), "Currency")
            txt2EnvFee.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 906, False), "Currency")
            txt2FuelFee.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 907, False)
            txt2FeeType1.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 908, False)
            txt2FeePrice1.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 909, False), "Currency")
            txt2FeeType2.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 911, False)
            txt2FeePrice2.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 912, False), "Currency")
            txt2FeeType3.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 914, False)
            txt2FeePrice3.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 915, False), "Currency")
            txt2FeeType4.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 917, False)
            txt2FeePrice4.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 918, False), "Currency")
            txt2FeeType5.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 920, False)
            txt2FeePrice5.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 921, False), "Currency")
            txt2Rate1.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 910, False)
            txt2Rate2.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 913, False)
            txt2Rate3.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 916, False)
            txt2Rate4.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 919, False)
            txt2Rate5.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 922, False)
            txt2MonSpend.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 923, False), "Currency")
            txtOther.Value = ""
            DaysofPickup = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG100"), 141, False)
            
        Case Else 'Billing Correction accepted or partial - autopopulate to SS service'
            Vendor = Worksheets("ASR").Range("WU" & rowNum).Value
            Select Case Vendor
            Case Is <> ""
                txt1Vendor.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 619, False)
                txt1NumContain.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 620, False)
                txt1TypeWaste.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 623, False)
                txt1SzContain.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 621, False)
                txt1Mes.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 622, False)
                txt1ContainType.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 137, False)
                txt1NumPickups.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 624, False)
                txt2BaseSvc.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 626, False), "Currency")
                txt2EnvFee.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 627, False), "Currency")
                txt2FuelFee.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 628, False)
                txt2FeeType1.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 629, False)
                txt2FeePrice1.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 630, False), "Currency")
                txt2FeeType2.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 632, False)
                txt2FeePrice2.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 633, False), "Currency")
                txt2FeeType3.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 635, False)
                txt2FeePrice3.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 636, False), "Currency")
                txt2FeeType4.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 638, False)
                txt2FeePrice4.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 639, False), "Currency")
                txt2FeeType5.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 641, False)
                txt2FeePrice5.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 642, False), "Currency")
                txt2Rate1.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 631, False)
                txt2Rate2.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 634, False)
                txt2Rate3.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 637, False)
                txt2Rate4.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 640, False)
                txt2Rate5.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 643, False)
                txt2MonSpend.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 644, False), "Currency")
                txtOther.Value = ""
                DaysofPickup = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG100"), 141, False)
                
            Case Else   'Current spend - autopopulate to SS service.
                txt1Vendor.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 131, False)
                txt1NumContain.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 134, False)
                txt1TypeWaste.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 133, False)
                txt1SzContain.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 135, False)
                txt1Mes.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 136, False)
                txt1ContainType.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 137, False)
                txt1NumPickups.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 138, False)
                txt2BaseSvc.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 145, False), "Currency")
                txt2EnvFee.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 146, False), "Currency")
                txt2FuelFee.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 147, False)
                txt2FeeType1.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 148, False)
                txt2FeePrice1.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 149, False), "Currency")
                txt2FeeType2.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 150, False)
                txt2FeePrice2.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 151, False), "Currency")
                txt2FeeType3.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 152, False)
                txt2FeePrice3.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 153, False), "Currency")
                txt2FeeType4.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 154, False)
                txt2FeePrice4.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 155, False), "Currency")
                txt2FeeType5.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 156, False)
                txt2FeePrice5.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 157, False)
                txt2Rate1.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 162, False)
                txt2Rate2.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 163, False)
                txt2Rate3.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 164, False)
                txt2Rate4.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 165, False)
                txt2Rate5.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 166, False)
                txt2MonSpend.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 158, False), "Currency")
                txtOther.Value = ""
                DaysofPickup = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG100"), 141, False)
            End Select
        End Select
    End Select
    
    Call InsertDaysOfWeek(DaysofPickup)
End Sub

Private Sub InsertContain4AutoInput()
'Insert Container 4 information from the ASR'
    Dim Vendor As String
    Dim DaysofPickup As String
    Vendor = Worksheets("ASR").Range("ATN" & rowNum).Value
    Select Case Vendor
    
    Case Is <> ""    'Vendor Switch - autopopulate to SS
        txt1Vendor.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1210, False)
        txt1NumContain.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1211, False)
        txt1TypeWaste.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1214, False)
        txt1SzContain.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1212, False)
        txt1Mes.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1213, False)
        txt1ContainType.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1239, False)
        txt1NumPickups.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1215, False)
        txt2BaseSvc.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1217, False), "Currency")
        txt2EnvFee.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1218, False), "Currency")
        txt2FuelFee.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1219, False)
        txt2FeeType1.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1220, False)
        txt2FeePrice1.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1221, False), "Currency")
        txt2FeeType2.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1223, False)
        txt2FeePrice2.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1224, False), "Currency")
        txt2FeeType3.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1226, False)
        txt2FeePrice3.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1227, False), "Currency")
        txt2FeeType4.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1229, False)
        txt2FeePrice4.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1230, False), "Currency")
        txt2FeeType5.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1232, False)
        txt2FeePrice5.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1233, False), "Currency")
        txt2Rate1.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1222, False)
        txt2Rate2.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1225, False)
        txt2Rate3.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1228, False)
        txt2Rate4.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1231, False)
        txt2Rate5.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1234, False)
        txt2MonSpend.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1235, False), "Currency")
        txtOther.Value = ""
        DaysofPickup = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG100"), 1240, False)
    
    Case Else 'Rate Reduction accepted or partial - autopopulate to SS service'
        Vendor = Worksheets("ASR").Range("AIU" & rowNum).Value
        Select Case Vendor
        Case Is <> ""
            txt1Vendor.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 931, False)
            txt1NumContain.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 932, False)
            txt1TypeWaste.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 935, False)
            txt1SzContain.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 933, False)
            txt1Mes.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 934, False)
            txt1ContainType.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 189, False)
            txt1NumPickups.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 936, False)
            txt2BaseSvc.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 938, False), "Currency")
            txt2EnvFee.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 939, False), "Currency")
            txt2FuelFee.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 940, False)
            txt2FeeType1.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 941, False)
            txt2FeePrice1.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 942, False), "Currency")
            txt2FeeType2.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 944, False)
            txt2FeePrice2.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 945, False), "Currency")
            txt2FeeType3.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 947, False)
            txt2FeePrice3.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 948, False), "Currency")
            txt2FeeType4.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 950, False)
            txt2FeePrice4.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 951, False), "Currency")
            txt2FeeType5.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 953, False)
            txt2FeePrice5.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 954, False), "Currency")
            txt2Rate1.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 943, False)
            txt2Rate2.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 946, False)
            txt2Rate3.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 949, False)
            txt2Rate4.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 952, False)
            txt2Rate5.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 955, False)
            txt2MonSpend.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 956, False), "Currency")
            txtOther.Value = ""
            DaysofPickup = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG100"), 193, False)
        
        Case Else 'Billing Correction accepted or partial - autopopulate to SS service'
            Vendor = Worksheets("ASR").Range("YB" & rowNum).Value
            Select Case Vendor
            Case Is <> ""
                txt1Vendor.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 652, False)
                txt1NumContain.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 653, False)
                txt1TypeWaste.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 656, False)
                txt1SzContain.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 654, False)
                txt1Mes.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 655, False)
                txt1ContainType.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 189, False)
                txt1NumPickups.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 657, False)
                txt2BaseSvc.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 659, False), "Currency")
                txt2EnvFee.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 660, False), "Currency")
                txt2FuelFee.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 661, False)
                txt2FeeType1.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 662, False)
                txt2FeePrice1.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 663, False), "Currency")
                txt2FeeType2.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 665, False)
                txt2FeePrice2.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 666, False), "Currency")
                txt2FeeType3.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 668, False)
                txt2FeePrice3.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 669, False), "Currency")
                txt2FeeType4.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 671, False)
                txt2FeePrice4.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 672, False), "Currency")
                txt2FeeType5.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 674, False)
                txt2FeePrice5.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 675, False), "Currency")
                txt2Rate1.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 664, False)
                txt2Rate2.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 667, False)
                txt2Rate3.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 670, False)
                txt2Rate4.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 673, False)
                txt2Rate5.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 676, False)
                txt2MonSpend.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 677, False), "Currency")
                txtOther.Value = ""
                DaysofPickup = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG100"), 193, False)
            
            Case Else    'Current Spend - autopopulate to SS service.'
                txt1Vendor.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 183, False)
                txt1NumContain.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 186, False)
                txt1TypeWaste.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 185, False)
                txt1SzContain.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 187, False)
                txt1Mes.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 188, False)
                txt1ContainType.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 189, False)
                txt1NumPickups.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 190, False)
                txt2BaseSvc.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 197, False), "Currency")
                txt2EnvFee.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 198, False), "Currency")
                txt2FuelFee.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 199, False)
                txt2FeeType1.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 200, False)
                txt2FeePrice1.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 201, False), "Currency")
                txt2FeeType2.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 202, False)
                txt2FeePrice2.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 203, False), "Currency")
                txt2FeeType3.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 204, False)
                txt2FeePrice3.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 205, False), "Currency")
                txt2FeeType4.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 206, False)
                txt2FeePrice4.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 207, False), "Currency")
                txt2FeeType5.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 208, False)
                txt2FeePrice5.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 209, False), "Currency")
                txt2Rate1.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 214, False)
                txt2Rate2.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 215, False)
                txt2Rate3.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 216, False)
                txt2Rate4.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 217, False)
                txt2Rate5.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 218, False)
                txt2MonSpend.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 210, False), "Currency")
                txtOther.Value = ""
                DaysofPickup = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG100"), 193, False)
            End Select
        End Select
    End Select
    
    Call InsertDaysOfWeek(DaysofPickup)
End Sub

Private Sub InsertContain5AutoInput()
'Insert Container 5 information from the ASR'
    Dim Vendor As String
    Dim DaysofPickup As String
    Vendor = Worksheets("ASR").Range("AUU" & rowNum).Value
    Select Case Vendor
    
    Case Is <> ""    'Vendor Switch - autopopulate to SS
        txt1Vendor.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1243, False)
        txt1NumContain.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1244, False)
        txt1TypeWaste.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1247, False)
        txt1SzContain.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1245, False)
        txt1Mes.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1246, False)
        txt1ContainType.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1272, False)
        txt1NumPickups.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1248, False)
        txt2BaseSvc.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1250, False), "Currency")
        txt2EnvFee.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1251, False), "Currency")
        txt2FuelFee.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1252, False)
        txt2FeeType1.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1253, False)
        txt2FeePrice1.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1254, False), "Currency")
        txt2FeeType2.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1256, False)
        txt2FeePrice2.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1257, False), "Currency")
        txt2FeeType3.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1259, False)
        txt2FeePrice3.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1260, False), "Currency")
        txt2FeeType4.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1262, False)
        txt2FeePrice4.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1263, False), "Currency")
        txt2FeeType5.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1265, False)
        txt2FeePrice5.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1266, False), "Currency")
        txt2Rate1.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1255, False)
        txt2Rate2.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1258, False)
        txt2Rate3.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1261, False)
        txt2Rate4.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1264, False)
        txt2Rate5.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1267, False)
        txt2MonSpend.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1268, False), "Currency")
        txtOther.Value = ""
        DaysofPickup = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG100"), 1273, False)
    
    Case Else 'Rate Reduction accepted or partial - autopopulate to SS service'
        Vendor = Worksheets("ASR").Range("AKB" & rowNum).Value
        Select Case Vendor
        Case Is <> ""
            txt1Vendor.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 964, False)
            txt1NumContain.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 965, False)
            txt1TypeWaste.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 968, False)
            txt1SzContain.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 966, False)
            txt1Mes.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 967, False)
            txt1ContainType.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 241, False)
            txt1NumPickups.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 969, False)
            txt2BaseSvc.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 971, False), "Currency")
            txt2EnvFee.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 972, False), "Currency")
            txt2FuelFee.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 973, False)
            txt2FeeType1.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 974, False)
            txt2FeePrice1.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 975, False), "Currency")
            txt2FeeType2.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 977, False)
            txt2FeePrice2.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 978, False), "Currency")
            txt2FeeType3.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 980, False)
            txt2FeePrice3.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 981, False), "Currency")
            txt2FeeType4.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 983, False)
            txt2FeePrice4.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 984, False), "Currency")
            txt2FeeType5.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 986, False)
            txt2FeePrice5.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 987, False), "Currency")
            txt2Rate1.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 976, False)
            txt2Rate2.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 979, False)
            txt2Rate3.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 982, False)
            txt2Rate4.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 985, False)
            txt2Rate5.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 988, False)
            txt2MonSpend.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 989, False), "Currency")
            txtOther.Value = ""
            DaysofPickup = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG100"), 245, False)
            
        Case Else 'Billing Correction accepted or partial - autopopulate to SS service'
            Vendor = Worksheets("ASR").Range("ZI" & rowNum).Value
            Select Case Vendor
            Case Is <> ""
                txt1Vendor.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 685, False)
                txt1NumContain.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 686, False)
                txt1TypeWaste.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 689, False)
                txt1SzContain.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 687, False)
                txt1Mes.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 688, False)
                txt1ContainType.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 241, False)
                txt1NumPickups.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 690, False)
                txt2BaseSvc.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 692, False), "Currency")
                txt2EnvFee.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 693, False), "Currency")
                txt2FuelFee.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 694, False)
                txt2FeeType1.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 695, False)
                txt2FeePrice1.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 696, False), "Currency")
                txt2FeeType2.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 698, False)
                txt2FeePrice2.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 699, False), "Currency")
                txt2FeeType3.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 701, False)
                txt2FeePrice3.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 702, False), "Currency")
                txt2FeeType4.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 704, False)
                txt2FeePrice4.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 705, False), "Currency")
                txt2FeeType5.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 707, False)
                txt2FeePrice5.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 708, False), "Currency")
                txt2Rate1.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 697, False)
                txt2Rate2.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 700, False)
                txt2Rate3.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 703, False)
                txt2Rate4.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 706, False)
                txt2Rate5.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 709, False)
                txt2MonSpend.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 710, False), "Currency")
                txtOther.Value = ""
                DaysofPickup = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG100"), 245, False)
                
            Case Else   'Current Spend - autopopulate to SS service.'
                txt1Vendor.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 235, False)
                txt1NumContain.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 238, False)
                txt1TypeWaste.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 237, False)
                txt1SzContain.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 239, False)
                txt1Mes.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 240, False)
                txt1ContainType.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 241, False)
                txt1NumPickups.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 242, False)
                txt2BaseSvc.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 249, False), "Currency")
                txt2EnvFee.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 250, False), "Currency")
                txt2FuelFee.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 251, False)
                txt2FeeType1.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 252, False)
                txt2FeePrice1.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 253, False), "Currency")
                txt2FeeType2.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 254, False)
                txt2FeePrice2.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 255, False), "Currency")
                txt2FeeType3.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 256, False)
                txt2FeePrice3.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 257, False), "Currency")
                txt2FeeType4.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 258, False)
                txt2FeePrice4.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 259, False), "Currency")
                txt2FeeType5.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 260, False)
                txt2FeePrice5.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 261, False), "Currency")
                txt2Rate1.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 266, False)
                txt2Rate2.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 267, False)
                txt2Rate3.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 268, False)
                txt2Rate4.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 269, False)
                txt2Rate5.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 270, False)
                txt2MonSpend.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 262, False), "Currency")
                txtOther.Value = ""
                DaysofPickup = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG100"), 245, False)
            End Select
        End Select
    End Select
    
    Call InsertDaysOfWeek(DaysofPickup)
End Sub

Private Sub btnClose_Click()
'User clicked Close Form button'
Dim msg As Integer
If cmbContainers.Value <> "- Select a Container -" Then
    Dim closer As Integer
    'Ask if user wants to save'
    closer = MsgBox("You are now closing this form, do you wish to save?", vbYesNoCancel, "Close Service Standardization Editor")
        'If No'
        If closer = 7 Then
        Unload frmServiceStand
        'If Yes'
        ElseIf closer = 6 Then
            Call btnSave_Click
            Unload frmServiceStand
            ThisWorkbook.Save
            'If Cancel'
        ElseIf closer = 2 Then Exit Sub
    End If
Else:
    Unload frmServiceStand
End If
ThisWorkbook.Save
End Sub

Private Sub btnSave_Click()
Dim rowNum As Integer
Dim containNum As Integer

    'Find out which Container we are updating then call corresponding module for saving'
    rowNum = WorksheetFunction.Match(LocID, Worksheets("INV").Range("locations"), 0) + 7
    
    If cmbContainers.Value = Worksheets("ASR").Range("BC" & rowNum) Then
        Call SaveCont1(rowNum)
    ElseIf cmbContainers.Value = Worksheets("ASR").Range("DC" & rowNum) Then
        Call SaveCont2(rowNum)
    ElseIf cmbContainers.Value = Worksheets("ASR").Range("FC" & rowNum) Then
        Call SaveCont3(rowNum)
    ElseIf cmbContainers.Value = Worksheets("ASR").Range("HC" & rowNum) Then
        Call SaveCont4(rowNum)
    ElseIf cmbContainers.Value = Worksheets("ASR").Range("JC" & rowNum) Then
        Call SaveCont5(rowNum)
    ElseIf cmbContainers.Value = Worksheets("ASR").Range("LI" & rowNum) Then
        Call SaveCont6(rowNum)
    ElseIf cmbContainers.Value = Worksheets("ASR").Range("NI" & rowNum) Then
        Call SaveCont7(rowNum)
    ElseIf cmbContainers.Value = Worksheets("ASR").Range("PI" & rowNum) Then
        Call SaveCont8(rowNum)
    End If
     
    
End Sub

Private Sub SaveCont1(rowNum As Integer)
    'Save Container 1 information'
                
    Worksheets("ASR").Range("BAL" & rowNum).Value = txt1Vendor.Text
    Worksheets("ASR").Range("BAP" & rowNum).Value = txt1TypeWaste.Text
    Worksheets("ASR").Range("BAM" & rowNum).Value = txt1NumContain.Value
    Worksheets("ASR").Range("BAN" & rowNum).Value = txt1SzContain.Value
    Worksheets("ASR").Range("BAO" & rowNum).Value = txt1Mes.Text
    Worksheets("ASR").Range("BAQ" & rowNum).Value = txt1NumPickups.Value
    Worksheets("ASR").Range("BBN" & rowNum).Value = txt1ContainType.Value
                
    Worksheets("ASR").Range("BAS" & rowNum).Value = txt2BaseSvc.Value
    Worksheets("ASR").Range("BAT" & rowNum).Value = txt2EnvFee.Value
    Worksheets("ASR").Range("BAU" & rowNum).Value = txt2FuelFee.Value
    Worksheets("ASR").Range("BAV" & rowNum).Value = txt2FeeType1.Text
    Worksheets("ASR").Range("BAW" & rowNum).Value = txt2FeePrice1.Value
    Worksheets("ASR").Range("BAX" & rowNum).Value = txt2Rate1.Value
    Worksheets("ASR").Range("BAY" & rowNum).Value = txt2FeeType2.Text
    Worksheets("ASR").Range("BAZ" & rowNum).Value = txt2FeePrice2.Value
    Worksheets("ASR").Range("BBA" & rowNum).Value = txt2Rate2.Value
    Worksheets("ASR").Range("BBB" & rowNum).Value = txt2FeeType3.Text
    Worksheets("ASR").Range("BBC" & rowNum).Value = txt2FeePrice3.Value
    Worksheets("ASR").Range("BBD" & rowNum).Value = txt2Rate3.Value
    Worksheets("ASR").Range("BBE" & rowNum).Value = txt2FeeType4.Text
    Worksheets("ASR").Range("BBF" & rowNum).Value = txt2FeePrice4.Value
    Worksheets("ASR").Range("BBG" & rowNum).Value = txt2Rate4.Value
    Worksheets("ASR").Range("BBH" & rowNum).Value = txt2FeeType5.Text
    Worksheets("ASR").Range("BBI" & rowNum).Value = txt2FeePrice5.Value
    Worksheets("ASR").Range("BBJ" & rowNum).Value = txt2Rate5.Value
    Worksheets("ASR").Range("BBP" & rowNum).Value = txtOther.Text
    Worksheets("ASR").Range("BBQ" & rowNum).Value = "Accepted"
    
    If chkMon1.Value = True Then
    Worksheets("ASR").Range("BRT" & rowNum).Value = "x"
    Else: Worksheets("ASR").Range("BRT" & rowNum).Value = ""
    End If
    If chkTues1.Value = True Then
    Worksheets("ASR").Range("BRU" & rowNum).Value = "x"
    Else: Worksheets("ASR").Range("BRU" & rowNum).Value = ""
    End If
    If chkWed1.Value = True Then
    Worksheets("ASR").Range("BRV" & rowNum).Value = "x"
    Else: Worksheets("ASR").Range("BRV" & rowNum).Value = ""
    End If
    If chkThurs1.Value = True Then
    Worksheets("ASR").Range("BRW" & rowNum).Value = "x"
    Else: Worksheets("ASR").Range("BRW" & rowNum).Value = ""
    End If
    If chkFri1.Value = True Then
    Worksheets("ASR").Range("BRX" & rowNum).Value = "x"
    Else: Worksheets("ASR").Range("BRX" & rowNum).Value = ""
    End If
    If chkSat1.Value = True Then
    Worksheets("ASR").Range("BRY" & rowNum).Value = "x"
    Else: Worksheets("ASR").Range("BRY" & rowNum).Value = ""
    End If
    If chkSun1.Value = True Then
    Worksheets("ASR").Range("BRZ" & rowNum).Value = "x"
    Else: Worksheets("ASR").Range("BRZ" & rowNum).Value = ""
    End If
    If chkOnCall1.Value = True Then
    Worksheets("ASR").Range("BSA" & rowNum).Value = "x"
    Else: Worksheets("ASR").Range("BSA" & rowNum).Value = ""
    End If
    If chkOther1.Value = True Then
    Worksheets("ASR").Range("BSC" & rowNum).Value = "x"
    Else: Worksheets("ASR").Range("BSC" & rowNum).Value = ""
    End If
End Sub
Private Sub SaveCont2(rowNum As Integer)
    'Save Container 2 information'
                
    Worksheets("ASR").Range("BBS" & rowNum).Value = txt1Vendor.Text
    Worksheets("ASR").Range("BBW" & rowNum).Value = txt1TypeWaste.Text
    Worksheets("ASR").Range("BBT" & rowNum).Value = txt1NumContain.Value
    Worksheets("ASR").Range("BBU" & rowNum).Value = txt1SzContain.Value
    Worksheets("ASR").Range("BBV" & rowNum).Value = txt1Mes.Text
    Worksheets("ASR").Range("BBX" & rowNum).Value = txt1NumPickups.Value
    Worksheets("ASR").Range("BCU" & rowNum).Value = txt1ContainType.Value
                
    Worksheets("ASR").Range("BBZ" & rowNum).Value = txt2BaseSvc.Value
    Worksheets("ASR").Range("BCA" & rowNum).Value = txt2EnvFee.Value
    Worksheets("ASR").Range("BCB" & rowNum).Value = txt2FuelFee.Value
    Worksheets("ASR").Range("BCC" & rowNum).Value = txt2FeeType1.Text
    Worksheets("ASR").Range("BCD" & rowNum).Value = txt2FeePrice1.Value
    Worksheets("ASR").Range("BCE" & rowNum).Value = txt2Rate1.Value
    Worksheets("ASR").Range("BCF" & rowNum).Value = txt2FeeType2.Text
    Worksheets("ASR").Range("BCG" & rowNum).Value = txt2FeePrice2.Value
    Worksheets("ASR").Range("BCH" & rowNum).Value = txt2Rate2.Value
    Worksheets("ASR").Range("BCI" & rowNum).Value = txt2FeeType3.Text
    Worksheets("ASR").Range("BCJ" & rowNum).Value = txt2FeePrice3.Value
    Worksheets("ASR").Range("BCK" & rowNum).Value = txt2Rate3.Value
    Worksheets("ASR").Range("BCL" & rowNum).Value = txt2FeeType4.Text
    Worksheets("ASR").Range("BCM" & rowNum).Value = txt2FeePrice4.Value
    Worksheets("ASR").Range("BCN" & rowNum).Value = txt2Rate4.Value
    Worksheets("ASR").Range("BCO" & rowNum).Value = txt2FeeType5.Text
    Worksheets("ASR").Range("BCP" & rowNum).Value = txt2FeePrice5.Value
    Worksheets("ASR").Range("BCQ" & rowNum).Value = txt2Rate5.Value
    Worksheets("ASR").Range("BCW" & rowNum).Value = txtOther.Text
    Worksheets("ASR").Range("BCX" & rowNum).Value = "Accepted"
    
    If chkMon1.Value = True Then
    Worksheets("ASR").Range("BSD" & rowNum).Value = "x"
    Else: Worksheets("ASR").Range("BSD" & rowNum).Value = ""
    End If
    If chkTues1.Value = True Then
    Worksheets("ASR").Range("BSE" & rowNum).Value = "x"
    Else: Worksheets("ASR").Range("BSE" & rowNum).Value = ""
    End If
    If chkWed1.Value = True Then
    Worksheets("ASR").Range("BSF" & rowNum).Value = "x"
    Else: Worksheets("ASR").Range("BSF" & rowNum).Value = ""
    End If
    If chkThurs1.Value = True Then
    Worksheets("ASR").Range("BSG" & rowNum).Value = "x"
    Else: Worksheets("ASR").Range("BSG" & rowNum).Value = ""
    End If
    If chkFri1.Value = True Then
    Worksheets("ASR").Range("BSH" & rowNum).Value = "x"
    Else: Worksheets("ASR").Range("BSH" & rowNum).Value = ""
    End If
    If chkSat1.Value = True Then
    Worksheets("ASR").Range("BSI" & rowNum).Value = "x"
    Else: Worksheets("ASR").Range("BSI" & rowNum).Value = ""
    End If
    If chkSun1.Value = True Then
    Worksheets("ASR").Range("BSJ" & rowNum).Value = "x"
    Else: Worksheets("ASR").Range("BSJ" & rowNum).Value = ""
    End If
    If chkOnCall1.Value = True Then
    Worksheets("ASR").Range("BSK" & rowNum).Value = "x"
    Else: Worksheets("ASR").Range("BSK" & rowNum).Value = ""
    End If
    If chkOther1.Value = True Then
    Worksheets("ASR").Range("BSM" & rowNum).Value = "x"
    Else: Worksheets("ASR").Range("BSM" & rowNum).Value = ""
    End If
End Sub

Private Sub SaveCont3(rowNum As Integer)
    'Save Container 3 information'
                
    Worksheets("ASR").Range("BCZ" & rowNum).Value = txt1Vendor.Text
    Worksheets("ASR").Range("BDD" & rowNum).Value = txt1TypeWaste.Text
    Worksheets("ASR").Range("BDA" & rowNum).Value = txt1NumContain.Value
    Worksheets("ASR").Range("BDB" & rowNum).Value = txt1SzContain.Value
    Worksheets("ASR").Range("BDC" & rowNum).Value = txt1Mes.Text
    Worksheets("ASR").Range("BDE" & rowNum).Value = txt1NumPickups.Value
    Worksheets("ASR").Range("BEB" & rowNum).Value = txt1ContainType.Value
                
    Worksheets("ASR").Range("BDG" & rowNum).Value = txt2BaseSvc.Value
    Worksheets("ASR").Range("BDH" & rowNum).Value = txt2EnvFee.Value
    Worksheets("ASR").Range("BDI" & rowNum).Value = txt2FuelFee.Value
    Worksheets("ASR").Range("BDJ" & rowNum).Value = txt2FeeType1.Text
    Worksheets("ASR").Range("BDK" & rowNum).Value = txt2FeePrice1.Value
    Worksheets("ASR").Range("BDL" & rowNum).Value = txt2Rate1.Value
    Worksheets("ASR").Range("BDM" & rowNum).Value = txt2FeeType2.Text
    Worksheets("ASR").Range("BDN" & rowNum).Value = txt2FeePrice2.Value
    Worksheets("ASR").Range("BDO" & rowNum).Value = txt2Rate2.Value
    Worksheets("ASR").Range("BDP" & rowNum).Value = txt2FeeType3.Text
    Worksheets("ASR").Range("BDQ" & rowNum).Value = txt2FeePrice3.Value
    Worksheets("ASR").Range("BDR" & rowNum).Value = txt2Rate3.Value
    Worksheets("ASR").Range("BDS" & rowNum).Value = txt2FeeType4.Text
    Worksheets("ASR").Range("BDT" & rowNum).Value = txt2FeePrice4.Value
    Worksheets("ASR").Range("BDU" & rowNum).Value = txt2Rate4.Value
    Worksheets("ASR").Range("BDV" & rowNum).Value = txt2FeeType5.Text
    Worksheets("ASR").Range("BDW" & rowNum).Value = txt2FeePrice5.Value
    Worksheets("ASR").Range("BDX" & rowNum).Value = txt2Rate5.Value
    Worksheets("ASR").Range("BED" & rowNum).Value = txtOther.Text
    Worksheets("ASR").Range("BEE" & rowNum).Value = "Accepted"

    If chkMon1.Value = True Then
    Worksheets("ASR").Range("BSN" & rowNum).Value = "x"
    Else: Worksheets("ASR").Range("BSN" & rowNum).Value = ""
    End If
    If chkTues1.Value = True Then
    Worksheets("ASR").Range("BSO" & rowNum).Value = "x"
    Else: Worksheets("ASR").Range("BSO" & rowNum).Value = ""
    End If
    If chkWed1.Value = True Then
    Worksheets("ASR").Range("BSP" & rowNum).Value = "x"
    Else: Worksheets("ASR").Range("BSP" & rowNum).Value = ""
    End If
    If chkThurs1.Value = True Then
    Worksheets("ASR").Range("BSQ" & rowNum).Value = "x"
    Else: Worksheets("ASR").Range("BSQ" & rowNum).Value = ""
    End If
    If chkFri1.Value = True Then
    Worksheets("ASR").Range("BSR" & rowNum).Value = "x"
    Else: Worksheets("ASR").Range("BSR" & rowNum).Value = ""
    End If
    If chkSat1.Value = True Then
    Worksheets("ASR").Range("BSS" & rowNum).Value = "x"
    Else: Worksheets("ASR").Range("BSS" & rowNum).Value = ""
    End If
    If chkSun1.Value = True Then
    Worksheets("ASR").Range("BST" & rowNum).Value = "x"
    Else: Worksheets("ASR").Range("BST" & rowNum).Value = ""
    End If
    If chkOnCall1.Value = True Then
    Worksheets("ASR").Range("BSU" & rowNum).Value = "x"
    Else: Worksheets("ASR").Range("BSU" & rowNum).Value = ""
    End If
    If chkOther1.Value = True Then
    Worksheets("ASR").Range("BSW" & rowNum).Value = "x"
    Else: Worksheets("ASR").Range("BSW" & rowNum).Value = ""
    End If
End Sub

Private Sub SaveCont4(rowNum As Integer)
    'Save Container 4 information'
                
    Worksheets("ASR").Range("BEG" & rowNum).Value = txt1Vendor.Text
    Worksheets("ASR").Range("BEK" & rowNum).Value = txt1TypeWaste.Text
    Worksheets("ASR").Range("BEH" & rowNum).Value = txt1NumContain.Value
    Worksheets("ASR").Range("BEI" & rowNum).Value = txt1SzContain.Value
    Worksheets("ASR").Range("BEJ" & rowNum).Value = txt1Mes.Text
    Worksheets("ASR").Range("BEL" & rowNum).Value = txt1NumPickups.Value
    Worksheets("ASR").Range("BFI" & rowNum).Value = txt1ContainType.Value
                
    Worksheets("ASR").Range("BEN" & rowNum).Value = txt2BaseSvc.Value
    Worksheets("ASR").Range("BEO" & rowNum).Value = txt2EnvFee.Value
    Worksheets("ASR").Range("BEP" & rowNum).Value = txt2FuelFee.Value
    Worksheets("ASR").Range("BEQ" & rowNum).Value = txt2FeeType1.Text
    Worksheets("ASR").Range("BER" & rowNum).Value = txt2FeePrice1.Value
    Worksheets("ASR").Range("BES" & rowNum).Value = txt2Rate1.Value
    Worksheets("ASR").Range("BET" & rowNum).Value = txt2FeeType2.Text
    Worksheets("ASR").Range("BEU" & rowNum).Value = txt2FeePrice2.Value
    Worksheets("ASR").Range("BEV" & rowNum).Value = txt2Rate2.Value
    Worksheets("ASR").Range("BEW" & rowNum).Value = txt2FeeType3.Text
    Worksheets("ASR").Range("BEX" & rowNum).Value = txt2FeePrice3.Value
    Worksheets("ASR").Range("BEY" & rowNum).Value = txt2Rate3.Value
    Worksheets("ASR").Range("BEZ" & rowNum).Value = txt2FeeType4.Text
    Worksheets("ASR").Range("BFA" & rowNum).Value = txt2FeePrice4.Value
    Worksheets("ASR").Range("BFB" & rowNum).Value = txt2Rate4.Value
    Worksheets("ASR").Range("BFC" & rowNum).Value = txt2FeeType5.Text
    Worksheets("ASR").Range("BFD" & rowNum).Value = txt2FeePrice5.Value
    Worksheets("ASR").Range("BFE" & rowNum).Value = txt2Rate5.Value
    Worksheets("ASR").Range("BFK" & rowNum).Value = txtOther.Text
    Worksheets("ASR").Range("BFL" & rowNum).Value = "Accepted"
    
    If chkMon1.Value = True Then
    Worksheets("ASR").Range("BSX" & rowNum).Value = "x"
    Else: Worksheets("ASR").Range("BSX" & rowNum).Value = ""
    End If
    If chkTues1.Value = True Then
    Worksheets("ASR").Range("BSY" & rowNum).Value = "x"
    Else: Worksheets("ASR").Range("BSY" & rowNum).Value = ""
    End If
    If chkWed1.Value = True Then
    Worksheets("ASR").Range("BSZ" & rowNum).Value = "x"
    Else: Worksheets("ASR").Range("BSZ" & rowNum).Value = ""
    End If
    If chkThurs1.Value = True Then
    Worksheets("ASR").Range("BTA" & rowNum).Value = "x"
    Else: Worksheets("ASR").Range("BTA" & rowNum).Value = ""
    End If
    If chkFri1.Value = True Then
    Worksheets("ASR").Range("BTB" & rowNum).Value = "x"
    Else: Worksheets("ASR").Range("BTB" & rowNum).Value = ""
    End If
    If chkSat1.Value = True Then
    Worksheets("ASR").Range("BTC" & rowNum).Value = "x"
    Else: Worksheets("ASR").Range("BTC" & rowNum).Value = ""
    End If
    If chkSun1.Value = True Then
    Worksheets("ASR").Range("BTD" & rowNum).Value = "x"
    Else: Worksheets("ASR").Range("BTD" & rowNum).Value = ""
    End If
    If chkOnCall1.Value = True Then
    Worksheets("ASR").Range("BTE" & rowNum).Value = "x"
    Else: Worksheets("ASR").Range("BTE" & rowNum).Value = ""
    End If
    If chkOther1.Value = True Then
    Worksheets("ASR").Range("BTG" & rowNum).Value = "x"
    Else: Worksheets("ASR").Range("BTG" & rowNum).Value = ""
    End If
End Sub

Private Sub SaveCont5(rowNum As Integer)
    'Save Container 5 information'
                
    Worksheets("ASR").Range("BFN" & rowNum).Value = txt1Vendor.Text
    Worksheets("ASR").Range("BFR" & rowNum).Value = txt1TypeWaste.Text
    Worksheets("ASR").Range("BFO" & rowNum).Value = txt1NumContain.Value
    Worksheets("ASR").Range("BFP" & rowNum).Value = txt1SzContain.Value
    Worksheets("ASR").Range("BFQ" & rowNum).Value = txt1Mes.Text
    Worksheets("ASR").Range("BFS" & rowNum).Value = txt1NumPickups.Value
    Worksheets("ASR").Range("BGP" & rowNum).Value = txt1ContainType.Value
                
    Worksheets("ASR").Range("BFU" & rowNum).Value = txt2BaseSvc.Value
    Worksheets("ASR").Range("BFV" & rowNum).Value = txt2EnvFee.Value
    Worksheets("ASR").Range("BFW" & rowNum).Value = txt2FuelFee.Value
    Worksheets("ASR").Range("BFX" & rowNum).Value = txt2FeeType1.Text
    Worksheets("ASR").Range("BFY" & rowNum).Value = txt2FeePrice1.Value
    Worksheets("ASR").Range("BFZ" & rowNum).Value = txt2Rate1.Value
    Worksheets("ASR").Range("BGA" & rowNum).Value = txt2FeeType2.Text
    Worksheets("ASR").Range("BGB" & rowNum).Value = txt2FeePrice2.Value
    Worksheets("ASR").Range("BGC" & rowNum).Value = txt2Rate2.Value
    Worksheets("ASR").Range("BGD" & rowNum).Value = txt2FeeType3.Text
    Worksheets("ASR").Range("BGE" & rowNum).Value = txt2FeePrice3.Value
    Worksheets("ASR").Range("BGF" & rowNum).Value = txt2Rate3.Value
    Worksheets("ASR").Range("BGG" & rowNum).Value = txt2FeeType4.Text
    Worksheets("ASR").Range("BGH" & rowNum).Value = txt2FeePrice4.Value
    Worksheets("ASR").Range("BGI" & rowNum).Value = txt2Rate4.Value
    Worksheets("ASR").Range("BGJ" & rowNum).Value = txt2FeeType5.Text
    Worksheets("ASR").Range("BGK" & rowNum).Value = txt2FeePrice5.Value
    Worksheets("ASR").Range("BGL" & rowNum).Value = txt2Rate5.Value
    Worksheets("ASR").Range("BGR" & rowNum).Value = txtOther.Text
    Worksheets("ASR").Range("BGS" & rowNum).Value = "Accepted"
    
    If chkMon1.Value = True Then
    Worksheets("ASR").Range("BTH" & rowNum).Value = "x"
    Else: Worksheets("ASR").Range("BTH" & rowNum).Value = ""
    End If
    If chkTues1.Value = True Then
    Worksheets("ASR").Range("BTI" & rowNum).Value = "x"
    Else: Worksheets("ASR").Range("BTI" & rowNum).Value = ""
    End If
    If chkWed1.Value = True Then
    Worksheets("ASR").Range("BTJ" & rowNum).Value = "x"
    Else: Worksheets("ASR").Range("BTJ" & rowNum).Value = ""
    End If
    If chkThurs1.Value = True Then
    Worksheets("ASR").Range("BTK" & rowNum).Value = "x"
    Else: Worksheets("ASR").Range("BTK" & rowNum).Value = ""
    End If
    If chkFri1.Value = True Then
    Worksheets("ASR").Range("BTL" & rowNum).Value = "x"
    Else: Worksheets("ASR").Range("BTL" & rowNum).Value = ""
    End If
    If chkSat1.Value = True Then
    Worksheets("ASR").Range("BTM" & rowNum).Value = "x"
    Else: Worksheets("ASR").Range("BTM" & rowNum).Value = ""
    End If
    If chkSun1.Value = True Then
    Worksheets("ASR").Range("BTN" & rowNum).Value = "x"
    Else: Worksheets("ASR").Range("BTN" & rowNum).Value = ""
    End If
    If chkOnCall1.Value = True Then
    Worksheets("ASR").Range("BTO" & rowNum).Value = "x"
    Else: Worksheets("ASR").Range("BTO" & rowNum).Value = ""
    End If
    If chkOther1.Value = True Then
    Worksheets("ASR").Range("BTQ" & rowNum).Value = "x"
    Else: Worksheets("ASR").Range("BTQ" & rowNum).Value = ""
    End If
End Sub

Private Sub SaveCont6(rowNum As Integer)
    'Save Container 6 information'
                
    Worksheets("ASR").Range("BGU" & rowNum).Value = txt1Vendor.Text
    Worksheets("ASR").Range("BGY" & rowNum).Value = txt1TypeWaste.Text
    Worksheets("ASR").Range("BGV" & rowNum).Value = txt1NumContain.Value
    Worksheets("ASR").Range("BGW" & rowNum).Value = txt1SzContain.Value
    Worksheets("ASR").Range("BGX" & rowNum).Value = txt1Mes.Text
    Worksheets("ASR").Range("BGZ" & rowNum).Value = txt1NumPickups.Value
    Worksheets("ASR").Range("BHW" & rowNum).Value = txt1ContainType.Value
                
    Worksheets("ASR").Range("BHB" & rowNum).Value = txt2BaseSvc.Value
    Worksheets("ASR").Range("BHC" & rowNum).Value = txt2EnvFee.Value
    Worksheets("ASR").Range("BHD" & rowNum).Value = txt2FuelFee.Value
    Worksheets("ASR").Range("BHE" & rowNum).Value = txt2FeeType1.Text
    Worksheets("ASR").Range("BHF" & rowNum).Value = txt2FeePrice1.Value
    Worksheets("ASR").Range("BHG" & rowNum).Value = txt2Rate1.Value
    Worksheets("ASR").Range("BHH" & rowNum).Value = txt2FeeType2.Text
    Worksheets("ASR").Range("BHI" & rowNum).Value = txt2FeePrice2.Value
    Worksheets("ASR").Range("BHJ" & rowNum).Value = txt2Rate2.Value
    Worksheets("ASR").Range("BHK" & rowNum).Value = txt2FeeType3.Text
    Worksheets("ASR").Range("BHL" & rowNum).Value = txt2FeePrice3.Value
    Worksheets("ASR").Range("BHM" & rowNum).Value = txt2Rate3.Value
    Worksheets("ASR").Range("BHN" & rowNum).Value = txt2FeeType4.Text
    Worksheets("ASR").Range("BHO" & rowNum).Value = txt2FeePrice4.Value
    Worksheets("ASR").Range("BHP" & rowNum).Value = txt2Rate4.Value
    Worksheets("ASR").Range("BHQ" & rowNum).Value = txt2FeeType5.Text
    Worksheets("ASR").Range("BHR" & rowNum).Value = txt2FeePrice5.Value
    Worksheets("ASR").Range("BHS" & rowNum).Value = txt2Rate5.Value
    
    Worksheets("ASR").Range("BHY" & rowNum).Value = txt2MaxWeight.Value
    Worksheets("ASR").Range("BHZ" & rowNum).Value = txt2QuanPerMonth.Value
    Worksheets("ASR").Range("BIA" & rowNum).Value = txt2HaulsPerMonth.Value
    Worksheets("ASR").Range("BIB" & rowNum).Value = txt2WeightPerHaul.Value
    Worksheets("ASR").Range("BIC" & rowNum).Value = txt2FlatHaul
    Worksheets("ASR").Range("BID" & rowNum).Value = txt2FlatDisposal.Value
    Worksheets("ASR").Range("BIE" & rowNum).Value = txtOther.Text
    Worksheets("ASR").Range("BIF" & rowNum).Value = "Accepted"
    
    If chkMon1.Value = True Then
    Worksheets("ASR").Range("BTR" & rowNum).Value = "x"
    Else: Worksheets("ASR").Range("BTR" & rowNum).Value = ""
    End If
    If chkTues1.Value = True Then
    Worksheets("ASR").Range("BTS" & rowNum).Value = "x"
    Else: Worksheets("ASR").Range("BTS" & rowNum).Value = ""
    End If
    If chkWed1.Value = True Then
    Worksheets("ASR").Range("BTT" & rowNum).Value = "x"
    Else: Worksheets("ASR").Range("BTT" & rowNum).Value = ""
    End If
    If chkThurs1.Value = True Then
    Worksheets("ASR").Range("BTU" & rowNum).Value = "x"
    Else: Worksheets("ASR").Range("BTU" & rowNum).Value = ""
    End If
    If chkFri1.Value = True Then
    Worksheets("ASR").Range("BTV" & rowNum).Value = "x"
    Else: Worksheets("ASR").Range("BTV" & rowNum).Value = ""
    End If
    If chkSat1.Value = True Then
    Worksheets("ASR").Range("BTW" & rowNum).Value = "x"
    Else: Worksheets("ASR").Range("BTW" & rowNum).Value = ""
    End If
    If chkSun1.Value = True Then
    Worksheets("ASR").Range("BTX" & rowNum).Value = "x"
    Else: Worksheets("ASR").Range("BTX" & rowNum).Value = ""
    End If
    If chkOnCall1.Value = True Then
    Worksheets("ASR").Range("BTY" & rowNum).Value = "x"
    Else: Worksheets("ASR").Range("BTY" & rowNum).Value = ""
    End If
    If chkOther1.Value = True Then
    Worksheets("ASR").Range("BUA" & rowNum).Value = "x"
    Else: Worksheets("ASR").Range("BUA" & rowNum).Value = ""
    End If
End Sub

Private Sub SaveCont7(rowNum As Integer)
    'Save Container 7 information'
                
    Worksheets("ASR").Range("BIG" & rowNum).Value = txt1Vendor.Text
    Worksheets("ASR").Range("BIK" & rowNum).Value = txt1TypeWaste.Text
    Worksheets("ASR").Range("BIH" & rowNum).Value = txt1NumContain.Value
    Worksheets("ASR").Range("BII" & rowNum).Value = txt1SzContain.Value
    Worksheets("ASR").Range("BIJ" & rowNum).Value = txt1Mes.Text
    Worksheets("ASR").Range("BIL" & rowNum).Value = txt1NumPickups.Value
    Worksheets("ASR").Range("BJI" & rowNum).Value = txt1ContainType.Value
                
    Worksheets("ASR").Range("BIN" & rowNum).Value = txt2BaseSvc.Value
    Worksheets("ASR").Range("BIO" & rowNum).Value = txt2EnvFee.Value
    Worksheets("ASR").Range("BIP" & rowNum).Value = txt2FuelFee.Value
    Worksheets("ASR").Range("BIQ" & rowNum).Value = txt2FeeType1.Text
    Worksheets("ASR").Range("BIR" & rowNum).Value = txt2FeePrice1.Value
    Worksheets("ASR").Range("BIS" & rowNum).Value = txt2Rate1.Value
    Worksheets("ASR").Range("BIT" & rowNum).Value = txt2FeeType2.Text
    Worksheets("ASR").Range("BIU" & rowNum).Value = txt2FeePrice2.Value
    Worksheets("ASR").Range("BIV" & rowNum).Value = txt2Rate2.Value
    Worksheets("ASR").Range("BIW" & rowNum).Value = txt2FeeType3.Text
    Worksheets("ASR").Range("BIX" & rowNum).Value = txt2FeePrice3.Value
    Worksheets("ASR").Range("BIY" & rowNum).Value = txt2Rate3.Value
    Worksheets("ASR").Range("BIZ" & rowNum).Value = txt2FeeType4.Text
    Worksheets("ASR").Range("BJA" & rowNum).Value = txt2FeePrice4.Value
    Worksheets("ASR").Range("BJB" & rowNum).Value = txt2Rate4.Value
    Worksheets("ASR").Range("BJC" & rowNum).Value = txt2FeeType5.Text
    Worksheets("ASR").Range("BJD" & rowNum).Value = txt2FeePrice5.Value
    Worksheets("ASR").Range("BJE" & rowNum).Value = txt2Rate5.Value
    
    Worksheets("ASR").Range("BJK" & rowNum).Value = txt2MaxWeight.Value
    Worksheets("ASR").Range("BJL" & rowNum).Value = txt2QuanPerMonth.Value
    Worksheets("ASR").Range("BJM" & rowNum).Value = txt2HaulsPerMonth.Value
    Worksheets("ASR").Range("BJN" & rowNum).Value = txt2WeightPerHaul.Value
    Worksheets("ASR").Range("BJO" & rowNum).Value = txt2FlatHaul
    Worksheets("ASR").Range("BJP" & rowNum).Value = txt2FlatDisposal.Value
    Worksheets("ASR").Range("BJQ" & rowNum).Value = txtOther.Text
    Worksheets("ASR").Range("BJR" & rowNum).Value = "Accepted"
    
    If chkMon1.Value = True Then
    Worksheets("ASR").Range("BUB" & rowNum).Value = "x"
    Else: Worksheets("ASR").Range("BUB" & rowNum).Value = ""
    End If
    If chkTues1.Value = True Then
    Worksheets("ASR").Range("BUC" & rowNum).Value = "x"
    Else: Worksheets("ASR").Range("BUC" & rowNum).Value = ""
    End If
    If chkWed1.Value = True Then
    Worksheets("ASR").Range("BUD" & rowNum).Value = "x"
    Else: Worksheets("ASR").Range("BUD" & rowNum).Value = ""
    End If
    If chkThurs1.Value = True Then
    Worksheets("ASR").Range("BUE" & rowNum).Value = "x"
    Else: Worksheets("ASR").Range("BUE" & rowNum).Value = ""
    End If
    If chkFri1.Value = True Then
    Worksheets("ASR").Range("BUF" & rowNum).Value = "x"
    Else: Worksheets("ASR").Range("BUF" & rowNum).Value = ""
    End If
    If chkSat1.Value = True Then
    Worksheets("ASR").Range("BUG" & rowNum).Value = "x"
    Else: Worksheets("ASR").Range("BUG" & rowNum).Value = ""
    End If
    If chkSun1.Value = True Then
    Worksheets("ASR").Range("BUH" & rowNum).Value = "x"
    Else: Worksheets("ASR").Range("BUH" & rowNum).Value = ""
    End If
    If chkOnCall1.Value = True Then
    Worksheets("ASR").Range("BUI" & rowNum).Value = "x"
    Else: Worksheets("ASR").Range("BUI" & rowNum).Value = ""
    End If
    If chkOther1.Value = True Then
    Worksheets("ASR").Range("BUK" & rowNum).Value = "x"
    Else: Worksheets("ASR").Range("BUK" & rowNum).Value = ""
    End If
End Sub

Private Sub SaveCont8(rowNum As Integer)
    'Save Container 8 information'
                
    Worksheets("ASR").Range("BJS" & rowNum).Value = txt1Vendor.Text
    Worksheets("ASR").Range("BJW" & rowNum).Value = txt1TypeWaste.Text
    Worksheets("ASR").Range("BJT" & rowNum).Value = txt1NumContain.Value
    Worksheets("ASR").Range("BJU" & rowNum).Value = txt1SzContain.Value
    Worksheets("ASR").Range("BJV" & rowNum).Value = txt1Mes.Text
    Worksheets("ASR").Range("BJX" & rowNum).Value = txt1NumPickups.Value
    Worksheets("ASR").Range("BKU" & rowNum).Value = txt1ContainType.Value
                
    Worksheets("ASR").Range("BJZ" & rowNum).Value = txt2BaseSvc.Value
    Worksheets("ASR").Range("BKA" & rowNum).Value = txt2EnvFee.Value
    Worksheets("ASR").Range("BKB" & rowNum).Value = txt2FuelFee.Value
    Worksheets("ASR").Range("BKC" & rowNum).Value = txt2FeeType1.Text
    Worksheets("ASR").Range("BKD" & rowNum).Value = txt2FeePrice1.Value
    Worksheets("ASR").Range("BKE" & rowNum).Value = txt2Rate1.Value
    Worksheets("ASR").Range("BKF" & rowNum).Value = txt2FeeType2.Text
    Worksheets("ASR").Range("BKG" & rowNum).Value = txt2FeePrice2.Value
    Worksheets("ASR").Range("BKH" & rowNum).Value = txt2Rate2.Value
    Worksheets("ASR").Range("BKI" & rowNum).Value = txt2FeeType3.Text
    Worksheets("ASR").Range("BKJ" & rowNum).Value = txt2FeePrice3.Value
    Worksheets("ASR").Range("BKK" & rowNum).Value = txt2Rate3.Value
    Worksheets("ASR").Range("BKL" & rowNum).Value = txt2FeeType4.Text
    Worksheets("ASR").Range("BKM" & rowNum).Value = txt2FeePrice4.Value
    Worksheets("ASR").Range("BKN" & rowNum).Value = txt2Rate4.Value
    Worksheets("ASR").Range("BKO" & rowNum).Value = txt2FeeType5.Text
    Worksheets("ASR").Range("BKP" & rowNum).Value = txt2FeePrice5.Value
    Worksheets("ASR").Range("BKQ" & rowNum).Value = txt2Rate5.Value
    
    Worksheets("ASR").Range("BKW" & rowNum).Value = txt2MaxWeight.Value
    Worksheets("ASR").Range("BKX" & rowNum).Value = txt2QuanPerMonth.Value
    Worksheets("ASR").Range("BKY" & rowNum).Value = txt2HaulsPerMonth.Value
    Worksheets("ASR").Range("BKZ" & rowNum).Value = txt2WeightPerHaul.Value
    Worksheets("ASR").Range("BLA" & rowNum).Value = txt2FlatHaul
    Worksheets("ASR").Range("BLB" & rowNum).Value = txt2FlatDisposal.Value
    Worksheets("ASR").Range("BLC" & rowNum).Value = txtOther.Text
    Worksheets("ASR").Range("BLD" & rowNum).Value = "Accepted"
    If chkMon1.Value = True Then
    Worksheets("ASR").Range("BUL" & rowNum).Value = "x"
    Else: Worksheets("ASR").Range("BUL" & rowNum).Value = ""
    End If
    If chkTues1.Value = True Then
    Worksheets("ASR").Range("BUM" & rowNum).Value = "x"
    Else: Worksheets("ASR").Range("BUM" & rowNum).Value = ""
    End If
    If chkWed1.Value = True Then
    Worksheets("ASR").Range("BUN" & rowNum).Value = "x"
    Else: Worksheets("ASR").Range("BUN" & rowNum).Value = ""
    End If
    If chkThurs1.Value = True Then
    Worksheets("ASR").Range("BUO" & rowNum).Value = "x"
    Else: Worksheets("ASR").Range("BUO" & rowNum).Value = ""
    End If
    If chkFri1.Value = True Then
    Worksheets("ASR").Range("BUP" & rowNum).Value = "x"
    Else: Worksheets("ASR").Range("BUP" & rowNum).Value = ""
    End If
    If chkSat1.Value = True Then
    Worksheets("ASR").Range("BUQ" & rowNum).Value = "x"
    Else: Worksheets("ASR").Range("BUQ" & rowNum).Value = ""
    End If
    If chkSun1.Value = True Then
    Worksheets("ASR").Range("BUR" & rowNum).Value = "x"
    Else: Worksheets("ASR").Range("BUR" & rowNum).Value = ""
    End If
    If chkOnCall1.Value = True Then
    Worksheets("ASR").Range("BUS" & rowNum).Value = "x"
    Else: Worksheets("ASR").Range("BUS" & rowNum).Value = ""
    End If
    If chkOther1.Value = True Then
    Worksheets("ASR").Range("BUU" & rowNum).Value = "x"
    Else: Worksheets("ASR").Range("BUU" & rowNum).Value = ""
    End If
End Sub



